Hi all

I need to ceate a multiselect combobox. For example, the user would like to hold down a key e.g Ctrl key and then select multiple values seperating them with a comma or something.


Any ideas?

Regards
Marnus

Can you use a list box instead of a combo box? List boxes support multiselecting.

Try this code (please add error handling:

Private Sub Combo1_Click()
    If m_bCrlIsDown Then
        Combo1.Text = Combo1.Tag & "," & Combo1.List(Combo1.ListIndex)
    Else
        Combo1.Text = Combo1.List(Combo1.ListIndex)
    End If
    Combo1.Tag = Combo1.Text
End Sub

To know if the Control key is down (m_bCrlIsDown in the above code) you can use the KeyDown, KeyUp event of the combo box, or better the GetAsyncKeyState API.

Marco