I've made the graphic interface with some animations. Using property
MouseMove I'm able to get first information about object on GUI. I've used:

Private Sub myjka_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,
ByVal X As Single, ByVal Y As Single)
Label2.Visible = False
Label3.Visible = Not Label3.Visible
End Sub
This sub is for "Label3" of course
This is working but label isn't stabile, flashing all the time
Is anybody has a idea to solve this problem?

Thanks for prompt