' zunächst die benötigten API-Deklarationen
Private Declare Function GetAsyncKeyState Lib _
  "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Const KeyPressed As Integer = -32767
 
 
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const VK_MBUTTON = &H4
 
Private sekunden As Long
 
Private Sub Timer1_Timer()
sekunden = sekunden + 1
If sekunden = 20 Then end 'oder so
End Sub
 
Private Sub Timer2_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then
    sekunden = 0
    Exit Sub
  ElseIf GetAsyncKeyState(VK_RBUTTON) Then
    sekunden = 0
    Exit Sub
  ElseIf GetAsyncKeyState(VK_MBUTTON) Then
    sekunden = 0
    Exit Sub
  Else
  End If
 
For i = 0 To 255
  If GetAsyncKeyState(i) = KeyPressed Then
sekunden = 0
Exit Sub
  End If
  Next
End Sub

Wer Rechtschreibfehler findet kann sie behalten oder meinen Deutschlehrer verklagen.

In der Mitte von Schwierigkeiten liegen die M?glichkeiten. [Alber Einstein]