Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　' フォームのフォントサイズを設定します。（SPREADにもこの設定が反映されます。）
　　Me.Font = New Font("ＭＳ ゴシック", 12.0F, FontStyle.Regular, GraphicsUnit.Point, 128, False)

　　' GcComboBox型セルを定義します。
　　Dim comboCell As New GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType()
　　With comboCell
　　　　.DropDownStyle = ComboBoxStyle.DropDown
　　　　.ListHeaderPane.Visible = False

　　　　' リストボックス内の文字列にあわせて列幅を自動調整します。
　　　　.DropDown.AutoWidth = True

　　　　' リストボックスの列を定義します。
　　　　.ListColumns.Add(New CellType.ListColumnInfo("test1"))
　　　　.ListColumns(0).Width = 13
　　　　.ListColumns.Add(New CellType.ListColumnInfo("test2"))
　　　　.ListColumns(1).Width = 90

　　　　' 選択リストを設定します。
　　　　.Items().Add(New CellType.ListItemInfo("0", "ＤＡＴＡ１"))
　　　　.Items().Add(New CellType.ListItemInfo("1", "ＤＡＴＡ２"))
　　　　.Items().Add(New CellType.ListItemInfo("2", "ＤＡＴＡ３"))
　　　　.Items().Add(New CellType.ListItemInfo("3", "ＤＡＴＡ４"))
　　　　.Items().Add(New CellType.ListItemInfo("4", "ＤＡＴＡ５"))
　　　　.Items().Add(New CellType.ListItemInfo("5", "ＤＡＴＡ６"))
　　End With

　　' SPREADの行・列数を設定します。
　　Me.FpSpread1.ActiveSheet.ColumnCount = 2
　　Me.FpSpread1.ActiveSheet.RowCount = 1

　　' １列目をGcComboBox型セルに設定します。
　　Me.FpSpread1.ActiveSheet.Columns(0).CellType = comboCell
　　' ※編集用セル（Editor）に設定した場合も同様の問題が発生します。
　　'Me.FpSpread1.ActiveSheet.Columns(0).Editor = comboCell End Sub