Mouse Move

[vistor]

Hi,

I've got the following code to underline a label to note that it is a link when user mouses over it:

Private Sub lblReturn_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblReturn.FontUnderline = True
End Sub

Is there a way to remove the unerline when the mouse moves off? I've tried FontUnderline = False on the MouseDown but has no effect.

 

[Foada]

You could use the form's mouse move event like this

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblReturn.FontUnderline = False
End Sub

Hope this helps. If you choose to battle wits with the witless be prepared to lose.

 

[Monkeygumbo]

Private Sub frmForm1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblReturn.FontUnderline = false

End Sub

You coudld try that...

MG

 

[Monkeygumbo]

Private Sub frmForm1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblReturn.FontUnderline = false

End Sub

You coudld try that...

MG

 

[vistor]

Thanks all, it works!

 

[strongm]

Just be aware that if you quickly move the mouse to another control, or off your form, then there is a good chance that the form will not actually receive a MouseMove event