Private Sub Form_Load()
  With Me.Combo1.ComboItems
   .Clear
   .Add , "_" + "Internet Mail", "Internet Mail", 1, , 0
   .Add , "_" + "Neue Nachrichten", "Neue Nachrichten", 2, , 1
   .Add , "_" + "Senden", "Senden", 1, , 1
   .Add , "_" + "Versandt", "Versandt", 1, , 1
   .Add , "_" + "Papierkorb", "Papierkorb", 2, , 1
  End With
  Set Me.Combo1.SelectedItem = Me.Combo1.ComboItems(1)
End Sub
 
Private Sub Combo1_GotFocus()
  Me.Combo1.SelStart = 0
  Me.Combo1.SelLength = 999
  SendMessage Combo1.hWnd, &H14F, True, 0
End Sub