MouseOver
05.08.2014 18:17:47
Dirk
ich hoffe einer der Experten kann mir weiterhelfen.
In meiner UF habe ich verschiedene Labelboxen, die
bei Mouse-Berührung den BackStyle ändern. Das Problem
liegt darin, daß beim Verlassen der Mouse wieder der
Ursprungszustand hergestellt werden soll.
Vielen Dank im Voraus
Dirk
Private Sub Label4_Mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Label4.BackStyle = 1
End Sub
Anzeige