Visual Basic - Truco en Visual

hace tiempo mire en un ejemplo de visual basic.. un programa en el que era un formulario.. con 2 botones... les voy a decir el ejemplo para k me entiendan lo k kiero..

el formulario decia.. esta contento con su Sueldo??
y habia dos botones.. euno k decia SI y otro k decia NO.. al darle k sii aparewcia otro formulario k decia Gracias estaba preocupado atte el Jefe... y se cerraban.. pero al kerer posicionar el mouse sobre el boton Si.. este semovia. y se moviaa.. ahora kiero utilizar esto para un programa k estoy aciendo.. pero no encuentro el codigoo.. si alguien me podria ayudar.. de antemano GRACIAS.

por medio del evento mousemove del boton reposicioner este usando las propiedades left y top

suerte

Este truco no es mio lo encontre por ahi navegando

en un form un boton, en el codigo del form:

Dim ChangeMe As Integer

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case ChangeMe
Case Is = 1
With Command1
.Top = 120
.Left = 4920
End With
ChangeMe = ChangeMe + 1
Case Is = 2
With Command1
.Top = 120
.Left = 0
End With
ChangeMe = ChangeMe + 1
Case Is = 3
With Command1
.Left = 0
.Top = 6000
End With
ChangeMe = ChangeMe + 1
Case Is = 4
With Command1
.Left = 7150
.Top = 6000
End With
ChangeMe = ChangeMe + 1
Case Is = 5
With Command1
.Left = 7150
.Top = 7000
End With
ChangeMe = ChangeMe + 1
Case Is = 6
With Command1
.Left = 3750
.Top = 7000
End With
ChangeMe = ChangeMe + 1
Case Is = 7
With Command1
.Left = 1250
.Top = 7800
End With
ChangeMe = ChangeMe + 1
Case Is = 8
With Command1
.Left = 8000
.Top = 0
End With
ChangeMe = ChangeMe + 1
Case Is = 9
With Command1
.Left = 8500
.Top = 1000
End With
ChangeMe = ChangeMe + 1
Case Is = 10
With Command1
.Left = 0
.Top = 7800
End With
ChangeMe = ChangeMe + 1
Case Is = 11
With Command1
.Left = 9200
.Top = 7800
End With
ChangeMe = ChangeMe + 1
Case Is = 12
With Command1
.Left = 9200
.Top = 3950
End With
ChangeMe = ChangeMe + 1
Case Is = 13
With Command1
.Left = 300
.Top = 2750
End With
ChangeMe = ChangeMe + 1
Case Is = 14
With Command1
.Left = 4920
.Top = 3480
End With
ChangeMe = 1
End Select

End Sub

Private Sub Form_Load()
Command1.Left = 4920
Command1.Top = 3480
ChangeMe = 1
End Sub