Conoscere le coordinate correnti del mouse sul Form senza tenere premuto un tasto del mouse

Per conoscere le coordinate correnti del mouse sul Form, anche in presenza di eventuali Controlli grafici, senza tenere premuto un tasto del mouse, si pu adottare il seguente codice:

Public Sub Form_Open()

 Timer1.Delay = 20

End


Public Sub Timer1_Timer()

 Me.Title = Mouse.ScreenX - Me.X

End


Public Sub Form_Enter()

 Timer1.Start

End


Public Sub Form_Leave()

 Timer1.Stop

End