Private Sub Form_Load() Timer1.Interval = 10 End Sub Private Sub Picture1_KeyDown(KeyCode As Integer, shift As Integer) Select Case KeyCode Case 65: Command1.Left = Command1.Left - 120 Case 68: Command1.Left = Command1.Left + 120 Case 87: Command1.Top = Command1.Top - 120 Case 83: Command1.Top = Command1.Top + 120 '------------------- Case 38: Text1.Top = Text1.Top - 120 '上 Case 40: Text1.Top = Text1.Top + 120 Case 37: Text1.Left = Text1.Left - 120 Case 39: Text1.Left = Text1.Left + 120 End Select End Sub Private Sub Timer1_Timer() Picture1.SetFocus End Sub