Hallo Leute
Ich wollte gern mal wissen ob es möglich ist ein Label an den Cursor an zu hängen, so das er sich ohne drag mit bewegt.
Danke im vorraus



hier mein code:

Dim pl, cl As New Point
Private Sub ren()
pl = Label1.Location
cl = Cursor.Position

End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Location = pl - cl + Cursor.Position

End Sub



Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Location = Cursor.Position



End Sub

Private Sub Form2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Timer1.Enabled = True
Timer1.Start()
ren()

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label1.Text = Cursor.Position.ToString


End Sub

Bitte VB Tags benutzen - was ist damit gemeint?

es gibt das event mousemove, schaus dir mal an. nen timer braucht man hier nicht

Willkommen im Forum.
Ein Einzeiler: