-
button slide
hi
i had desighned a form with a single command button my objective is that
the button ..at run time the mouse pointer focus should not be able to reach the button
ie.. if i place mouse pointer on the button.. button should slide of randomly all over the form so that i should not be able to click that button at all
can some one help me over this problem
regards
Nike
-
Re: button slide
Hi
This could get very annoying, but it's quite fun ...
Try something like :
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lLeft As Long
Dim lTop As Long
lLeft = Rnd(1) * (ScaleWidth - Command1.Width)
lTop = Rnd(1) * (ScaleHeight - Command1.Height)
Command1.Move lLeft, lTop
End Sub
Regards
Chris Eastwood
Codeguru - the website for developers
http://www.codeguru.com/vb