如何让窗口上所有的控件在失去焦点后自动隐藏，就象combobox中的listbox一样

Question

意思是这样的：
    多窗体的程序，焦点从窗体A切换到窗体B时，窗体A自动隐藏。因为A上有多个控件，所以不能使用窗体A的LostFocus事件，也无法使用控件的LostFocus事件，所以此种情况有些象ComboBox中下拉的ListBox，在它失去焦点时，即自动关闭。请大虾指点！！！
多谢

Answer 1

Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Sub Form_Load()
Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
If GetForegroundWindow <> Me.hWnd Then
Me.Hide
End If
End Sub'增加一个timer1
'然后把上面的程序拷到你的程序，就OK了。'记得给我加分!