Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Shift参数不止只是Shift键。它按位计算,1,2,4分别代表Shift键,Ctrl键,Alt键,具体查MSDN
If Shift = 4 And KeyCode = 65 Then '按Alt+A键让text2获得焦点
Text2.SetFocus
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub