комбобокс - VB

Формулировка задачи:

Код к задаче: «комбобокс - VB»

Private Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
Dim nRet As Long
nRet = SendMessageByNum(cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0)
End Sub
 
Private Sub Combo1_DropDown()
Timer1.Enabled = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Timer1.Enabled = True Then Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Call SetComboDropDown(Combo1, False)
End Sub