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

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