---

På følgende måde kan jeg vha. Shift knappen generere et event. Hvad skal jeg
gøre hvis jeg vil bruge Space knappen i stedet for ?


Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)

Dim ShiftDown As Integer
ShiftDown = (Shift And vbShiftMask) > 0

If ShiftDown Then
Call Event_by_Keyboard

End If

End Sub

---

> På følgende måde kan jeg vha. Shift knappen generere et event. Hvad skal
> jeg
> gøre hvis jeg vil bruge Space knappen i stedet for ?


> Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)

If KeyCode = 32 Then ...

> End Sub


/Lars