Sollevare l'Evento MouseMove() di un Oggetto grafico spostando su di esso il mouse senza tenere premuto un suo tasto

Normalmente, affinché sia sollevato l'evento "_MouseMove()" di un Oggetto grafico, bisogna spostare il mouse su tale Oggetto, tenendo premuto un tasto del mouse.
Per sollevare quel medesimo Evento senza la necessità di tenere premuto su un tasto del mouse, bisogna assegnare il valore "True " alla Proprietà ".Tracking " dell'Oggetto grafico, se da esso posseduta.

Mostriamo un semplice esempio, usando come Oggetto il Form principale.
Verranno intercettati i valori .X e .Y del Mouse (ovviamente senza tenere premuto su alcun tasto) al suo spostarsi sul Form:

Public Sub Form_Open()
 
 Me.Tracking = True
  
End

Public Sub Form_MouseMove()

 Me.Text = CStr(Mouse.X) & " - " & CStr(Mouse.Y)

End