"Убегающая кнопка"

[TOT]

Господа, кто знает и кому не лень подскажите, пожалуйста, как реализовать в VBA Excel этот прикольчик (при наведении курсора на кнопку на форме форма убегала).
Спасибо!

[pashulka]

Попробуйте использовать что-то вроде :

Код: Выделить всё

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Move Me.Left + 5
End Sub

[TOT]

pashulka, СПАСИБО!