"runaway button"

[exo]

A break from the more serious threads. Using jscript on a website it is possible to make a user button "runaway" from the mouse cursor.



Got a new guy coming in to learn one of the databases I've created and I'd like to have a little fun, so I was thinking about doing something similar with the command buttons on the form. Anyone have any ideas how to accomplish this?

Thanks =)

[TheShabz]

VBA doesn't have a mouse-to-control tracker that I'm aware of. However, what you can do is use the MouseMove event to set the Visible attribute to false of one button while turning on another button with the same caption when the user hovers the mouse over the control.

create 3 buttons on a form then:

Option Compare Database

Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Command1.Visible = True
Me.Command1.SetFocus
Me.Command0.Visible = False
Me.Command2.Visible = False

End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Command2.Visible = True
Me.Command2.SetFocus
Me.Command0.Visible = False
Me.Command1.Visible = False


End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Command0.Visible = True
Me.Command0.SetFocus
Me.Command1.Visible = False
Me.Command2.Visible = False

End Sub