select另一个单元格时，列表框不会不重点

我填充了一个名为范围的列表框组件。 数据跨越3列，它相当大，所以我需要扩大列表框只有当它有焦点。 我遇到的问题是，当我点击一个单元格时，控件不会失去焦点。 为什么不是失去了重点？

Private Sub ListBox1_HasFocus() ListBox1.Height = 300 End Sub Private Sub ListBox1_LostFocus() ListBox1.Height = 18.75 End Sub