Dim cmbocell As New GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType()
Dim listitem As New GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo
listitem.Text = "ァイル移送"
listitem.SubItems.Add("0")
cmbocell.Items.Add(listitem)
listitem = New GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo
listitem.Text = "定数"
listitem.SubItems.Add("1")
cmbocell.Items.Add(listitem)