VBFlexGrid Control (Replacement of the MSFlexGrid control)

[Nouyana]

Of course there is a list shown when you push the dropdown button. Also in VB ComboBox.

Only in the VBCCR ComboBox

Private Sub cmdAddItems_Click()
   With VBFlexGrid1
      .CellComboCue = FlexComboCueDropDown
      .ComboMode = FlexComboModeDropDown
      .ComboItems = "Arnold|Bob|Charlie|David"
   End With
   With cmbCombo1     ' VB ComboBox, Style = 2 (Dropdown list)
      .AddItem "Arnold"
      .AddItem "Bob"
   End With
   With cmbComboBoxW1 ' CCR ComboBox, Style = 2 (Dropdown list)
      .AddItem "Arnold"
      .AddItem "Bob"
   End With
End Sub

Private Sub cmdRemoveItems_Click()
   VBFlexGrid1.ComboItems = vbNullString
   cmbCombo1.Clear
   cmbComboBoxW1.Clear
End Sub