Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 0:
Label9.Caption = ""
Case 1:
Label9.Caption = "Linke"
Case 2:
Label9.Caption = "rechte"
Case 4:
Label9.Caption = "mitte"
End Select
End Sub
Warum reagiert der nicht wenn ich die tasten betätige? Er reagiert nur, wenn ich die taste betätige und dabei die Maus bewege, aber nicht wenn sie sich in Ruhe befindet.