Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
Shape1.Left = Shape1.Left - 100
End If
If KeyCode = 39 Then
Shape1.Left = Shape1.Left + 100
End If
If KeyCode = 38 Then
Shape1.Top = Shape1.Top - 100
End If
If KeyCode = 40 Then
Shape1.Top = Shape1.Top + 100
End If
End Sub
上下左右控制