Taste bewegen

Private Sub Form_Load()
Me.KeyPreview = True
Me.ScaleMode = vbCentimeter
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
Object.Left = Object.Left + 1
End If
End Sub