Design Anpassen

[DNA]

Geht auch bei einem normalen Label

Wenn der Mauszeiger über das Label geht

Code:

Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover Cursor = Cursors.Hand End Sub

---

Beim verlassen des Labels

Code:

Private Sub Form1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover Cursor = Cursors.Default End Sub

---