请问VB如何实现全局click事件

Question

程序有一个窗体，上面有诺干控件，其中一个是listbox。要达到的效果是单鼠标点击在该listbox上时，listbox的高度为一个值，当鼠标点在窗体上其他地方时，listbox的高度变为原来的五分一，类似于combo的效果，鼠标点在combo的下拉键时combo会dropdown，当鼠标点到其他地方时combo会收起。
如果用click事件的话，窗体上的每个控件都要编一个click事件，比较麻烦。如果用listbox_lostfocus事件，又不成功，因为点击form时不会触发listbox的lostfocus事件，即使form.setfocus也没有用，所以请教大家有什么方法，谢谢。

Answer 1

点击Form时，直接写改变listbox高度的代码可以吗？或者用ActiveControl写代码也行。

Answer 2

Private Sub Form_Click()
Static num As Integer
num = num + 1
Text1 = num
End Sub

Private Sub Form_Load()
Text1 = 0
End Sub
请参考本回答被网友采纳

Answer 3

放弃吧，做这种没用的东西有什么用？