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

vb6中怎样实现可多选的下拉框？（像是combobox和listbox的结合体）
combobox能下拉弹出，但不能复选；listbox能复选但不能弹出。有无能实现弹出式下拉复选框的空间？
如附图这种：

------解决方案--------------------
C1Studio、Xceed等第三方控件包中有现成的
------解决方案--------------------
自己用 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