如何编写这样的代码

首先不明白为什么不直接鼠标点一下。只有你的焦点在那个控件上。才能用键按下的事件。如果真的有点懒。鼠标也不想点。那直接在鼠标移动的事件让他获得焦点不就得了

Private Sub 业主_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
业主.SetFocus
End Sub
接着按写键按下的事件就行了。