Re: Event MouseMove

["Mayost Sharon" <sharon@xxxxxxxxx>]

First, thank you

I'm sorry that the messages were sent privately
I forgot that I should reply to everyone and then download the private email
It takes time to get used to it

Regarding the TIMER solution, I thought about it, but finally I saw that there is an event that does this:

Public Sub Form_Open()
   Label1.Tracking = True
End

Public Sub Label1_MouseMove()
   Label1.Text = "Move"
End

Public Sub Label1_Leave()
   Label1.Text = "Out"
End


---------- Original Message -----------
From: Gianluigi <gradobag@xxxxxxxxxxx>
To: user@xxxxxxxxxxxxxxxxxxxxxx
Sent: Tue, 19 Mar 2024 23:14:15 +0100
Subject: Re: Event MouseMove

> Il 19/03/24 23:04, Gianluigi ha scritto:
> 
> > Public Sub Form_Open()
> >
> >    Timer1.Enabled = True
> >
> > End
> >
> > Public Sub Form_MouseMove()
> >
> >    TextBox1.Text = Mouse.X & " : " & Mouse.Y
> >
> > End
> >
> >
> > Public Sub Timer1_Timer()
> >
> >    If Mouse.Inside(Me) Then
> >    Else
> >      TextBox1.Text = Mouse.ScreenX & " : " & Mouse.ScreenY
> >    Endif
> >
> > End
> >
> > Public Sub Form_Close()
> >
> >    Timer1.Stop
> >
> > End
> >
> > Regards
> > Gianluigi
> 
> Hi Mayost,
> 
> I forgot the P.S. I can't answer you directly, the mail is rejected.
> Maybe this is better like this:
> 
> Public Sub Timer1_Timer()
> 
>    If Not Mouse.Inside(Me) Then
>      TextBox1.Text = Mouse.ScreenX & " : " & Mouse.ScreenY
>    Endif
> 
> End
> 
> Regards
> Gianluigi
------- End of Original Message -------