Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
 
Private Sub Timer1_Timer()
    dim zeit   'Zähler
    'Wenn Links- oder Rechtsklick
    If GetAsyncKeyState(VK_LBUTTON) or GetAsyncKeyState(VK_RBUTTON) Then
        zeit=0
    Else 'Wenn kein klick
        zeit=zeit+100 
        if zeit=30000
          Image1.picture=Loadpicture("Dein spezielles Bild")
          timer1.enabled=False 'Danach nicht vergessen wieder einzuschalten !!!
        endif      
    End If
End Sub