Visual Basic - botonqueseva

Dim numx, numy As Double
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Form1.Height
Y = Form1.Width
numx = Int((X - 0 - 1) * Rnd - 1)
numy = Int((Y - 0 - 1) * Rnd - 1)
Command1.Left = numy - Command1.Height
Command1.Top = numx - Command1.Width

End Sub

Private Sub Form_Load()
Randomize

End Sub

Les adjunto todo el codigo del programa.
Me explico el formulario (form1) contendra un boton de salida (command1) pero en cuanto yo ponga el puntero encima del boton este se debe desplazar a otro lugar del formulario,haciendo asi imposible el salir.
El problema reside en que en ocasiones el boton se sale casi por completo de el formulario y incluso a veces desaparece .
Lo que tendria que hacer es moverse a otro lugar , sin salirse nada del boton y si modifico el tamaño del form1 , tambien ha de mantenerse dentro del mismo

gracias por su ayuda