Option Explicit
Private Const CB_SHOWDROPDOWN As Long = &H14F
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As _
  Any) As Long
 
Private Sub Timer1_Timer()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
 
Private Sub Timer2_Timer()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 0, ByVal 0&
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co