如何让组合控件的listbox自动消失？

Question

再说明一下，listbox原来隐藏，在text中按下ＤＯＷＮ　ＡＲＲＯＷ　，listbox才显示。

Answer 1

消失：SendMessage hWnd, CB_SHOWDROPDOWN, 0, 0

Answer 2

Private Sub listbox_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If 不在（X-Y）范围 Then
      List1.Visible = False
   End If
End Sub

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If 不在list1（X-Y）范围 Then
      List1.Visible = False
   End IfEnd Sub

Answer 4

用listbox的lostfocus事件，让失去焦点的listbox.visible=fales