Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        Select Case KeyCode
        Case 37
            Print "links"
            Ausout = 1
            Print Ausout
            lptout.Value = Ausout
 
            Debug.Print "Started - " & Time()
            Sleep 50
            Debug.Print "Ended - " & Time()
 
            Ausout = 0
            Print Ausout
            lptout.Value = Ausout
    End Select
End Sub