hur lägger man saker till tangentbords knappar

hur får jag raden under så den funkar på tex: vänsterpil?

o.Top = o.Top - 0.849

Testa med det här:

Infoga en textruta och


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
Text1.Left = Text1.Left - 5
'kod som ska utföras
End If
End Sub


Fler "keycodes" kan du hitta i Object Browser (tryck F2 i VB) och söker på t.ex. VbKeyLeft

MvH Dan "DaPe" Persson