' Label seguindo o mouse Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Top = Y + 250 Label1.Left = X + 250 End Sub