vb6中怎样实现可多选的下拉框？（像是combobox和listbox的结合体）

[iamggggs]

combobox能下拉弹出，但不能复选；listbox能复选但不能弹出。有无能实现弹出式下拉复选框的空间？
如附图这种：

[iamggggs]

引用 1 楼 caozhy 的回复:

C1Studio、Xceed等第三方控件包中有现成的

第三方控件才有这功能啊？从来没用过第三方控件，我去找来试试。谢谢。

[iamggggs]

引用 1 楼 caozhy 的回复:

C1Studio、Xceed等第三方控件包中有现成的

http://download.csdn.net/detail/caozhy/1601550#comment 找到这个，能说明一下我需要的这个控件的具体名称么？

[of123]

自己用 TextBox, CommandBox 和 ListBox（Style = 1）控件“组装”一个：

Option Explicit

Private Sub Command1_Click()
Dim strTmp As String, i As Integer

    If List1.Visible Then
        For i = 0 To List1.ListCount - 1
            If List1.Selected(i) Then strTmp = strTmp & IIf(strTmp > "", ",", "") & List1.List(i)
        Next i
    
        If InStr(strTmp, ",") Then
            Text1 = "(" & strTmp & ")"
        Else
            Text1 = strTmp
        End If
        Text1.SetFocus
        List1.Visible = False
        Command1.Caption = 6
    Else
        List1.Visible = True
        List1.SetFocus
        Command1.Caption = 5
    End If
End Sub

Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
List1.Top = Text1.Top + Text1.Height + 10
List1.Visible = False 
Command1.Height = Text1.Height - 60
Command1.Width = Command1.Height
Command1.Top = Text1.Top + 30
Command1.Left = Text1.Left + Text1.Width - Command1.Width - 30
Command1.Caption = "6"
Command1.Font = "Webdings"
Command1.Font.Size = 9
Text1 = ""
End Sub

[iamggggs]

唉，算了，第三方插件没找到合适的（或者是我没找到），自己用combobox结合listbox做了一个，凑合用吧，多谢进来的兄弟们。

[threenewbee]

C1Studio、Xceed等第三方控件包中有现成的