shift的键值 =1 按下Shift键， =2按下Ctrl键， =3 按下Alt键。。这需要触发，当你把左键移动到Text时，使Text获得焦点，同时要触发Shift的键值，让Shift的键值持续为1就行了。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyLeft ThenMsgBox "Aa"End IfE...