在FORM上 放两个文本框加入以下代码
Private Sub Text1_GotFocus()
Text1.Text = "获得焦点"
End Sub
Private Sub Text1_LostFocus()
Text1.Text = "失去焦点"
End Sub
Private Sub Text2_GotFocus()
Text2.Text = "获得焦点"
End Sub
Private Sub Text2_LostFocus()
Text2.Text = "失去焦点"
End Sub
Private Sub Text1_GotFocus()
MsgBox "aaa"
End Sub
你在两个文本框中,设置两个指针事件.