Подскажите

[Madman]

Подскажите как сделать чтобы при наведении мышью на лабл надпись менялась,а при отведении становилась обычной..
Спасибо за внимание.

[Aleksej]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "One state"
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Two state"
End Sub

[Александр Андреев]

Там еще может возникнуть ситуация, когда ты быстро отводишь мышь за пределы формы, так что событие не генерируется. Поищи про это на форуме, несколько раз обсуждалось, вроде бы...

[Biven]

api функцию надо взять. Она работает быстрее => качество лучше