Комбобокс - VB

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

как сделать так чтобы список не выпадал. программный код напишите пжл, тока не енаблед, а чтоб оно было видно как и обычно тока кнопка (стрелочка, треугольник как ищо) не действовала.

Решение задачи: «Комбобокс»

textual
                            Листинг программы 
                        

                            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
                        