' zunächst die benötigten API-Deklarationen
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As String) As Long
 
Private Const CB_FINDSTRINGEXACT = &H158

Private Sub cbo_Host_KeyPress(KeyAscii As Integer)
  ' Eintrag der ComboBox hinzufügen
  Dim nIndex As Integer
 
  If KeyAscii = 13 Then
    KeyAscii = 0
    With cbo_Host
      If .Text <> "" Then
        ' Erst mal suchen...
        nIndex = SendMessage(.hwnd, _
          CB_FINDSTRINGEXACT, -1, .Text)
 
        If nIndex < 0 Then
          ' ... nicht vorhanden, also hinzufügen
          .AddItem .Text
        End If
      End If
    End With
    cbo_ID.SetFocus
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de