Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
 
Const CB_GETCOUNT = &H146
Const CB_GETLBTEXT = &H148
Const CB_GETITEMDATA = &H150
Const CB_SETITEMDATA = &H151
Const CB_ADDSTRING = &H143
Const CB_INSERTSTRING = &H14A
Const CB_FINDSTRING = &H14C
 
Private Sub Command1_Click()
    Dim i As Long
    Dim ICount As Long
    Dim IString As String
 
    IString = Space(256)
    ICount = SendMessage(ComboBoxHandle, CB_GETCOUNT, 0&, ByVal 0&)
    For i = 0 To ICount - 1
        SendMessage ComboBoxHandle, CB_GETLBTEXT, i, ByVal IString
        List1.AddItem IString
    Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...