'Hallo Ari...
'Hier dein Code ein wenig geändert...
'NG.:12.04.03
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
 
Private Const CB_SETCURSEL = &H14E
 
Private Sub Form_Load()
  Dim i As Integer
  Combo1.Clear
    For i = 0 To 7
        If Text(i).Text <> "" Then
          Combo1.AddItem Text(i).Text
        End If
    Next i
    If Combo1.List(0) <> "" Then 'wParam ist der zu markierende ListIndex
        Call SendMessage(Combo1.hwnd, CB_SETCURSEL, ByVal 0, ByVal 0&)
        'Combo1.ListIndex = 0
    End If
End Sub
 
Private Sub Combo1_Click()
   Label1.Caption = ""
   Label1.Caption = Combo1.Text & " " & Combo1.ListIndex
End Sub
'Frank