Private Sub Form_Load()
    Form1.KeyPreview = True '控件前拦截按键激活
    Text1.CausesValidation = True '激活使之可以引发验证事件
End Sub


Private Sub Command1_Click()
   Text2.SetFocus   '转移焦点到文本2
End Sub

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
    Text2.SetFocus   '窗体接收任意键盘，转移焦点
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
    MsgBox "文本1失去焦点前验证"
End Sub

点击命令可以激活

鼠标点击，可以激活

TAb可以激活

但其它按键时，在失去焦点时，却没有引发，原因不明。