que puedo hacer en este caso

[jlmc123]

lo que trato de hacer es mostrar un video previo al seleccionar un comand button con el mouse aqui pongo mi codigo espero alguien me pueda decior cual es el error
por que cada ves que selecciono el boton me muestra el video previo pero ya no puedo abrir el programa con el boton a qui pongo el codigo:

Private Sub Command1_Click()
Shell "C:\programa a abrir.exe"
End Sub


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Width = 2800
Command1.Height = 1815

form2.Show
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Width = 2415
Command1.Height = 1455

form2.Hide
End Sub

los form2 son formularios que son llamados al momento de seleccionar el boton antes de dar el click
espero alguien me pueda ayudar .