Código:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then 'Significa que se ha cerrado con la X:
Shell App.Path & "\" & App.EXEName & ".exe" 'se ejecuta a si mismo
End If
End Sub
espero que te sirva. Chau
GeCkO