MOVING "JOKE" BUTTON

[csegal]

HOW DO I MAKE A JOKE BUTTON?...
I WOULD LIKE TO MAKE THE BUTTON MOVE WHEN THE MOUSE POINTER IS PLACED OVER THE BUTTON MAKING IT IMPOSSIBLE TO CLICK THE BUTTON.
i HAVE SEEN SEVERAL JOKES OF THIS FORMAT BUT I AM NOT SURE IF IT CAN BE DONE IN ACCESS 97.

ALSO, IF IT IS POSSIBLE TO DO THIS,,,CAN I ALSO CREATE A DISABLE BUTTON TO RESTORE EVERYTHING TO NORMAL?

CSEGAL
csegal@arrowair.com

 

[GrantDB]

Don't see why you would want to, but this should get you started

Private Sub cmdJoke_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'a checkbox used to disable the moving button
'when the button moves to the end of the form the prog will crash
'could use a random num generator to move button
'will need to code ensure that button doesn't fall off screen
If chkDisable.Value = -1 Then
cmdJoke.Left = cmdJoke.Left - 100
End If
End Sub

 

[danvlas]

I've seen something similar done by Magistr.B virus...Icons running away from the mouse pointer...but it wasn't funny at all...

Are you trying to become a BOFH ?


Daniel Vlas
Systems Consultant
danvlas@yahoo.com