Crea un proyecto EXE estándar. Haz un botón (se llamará por defecto Command1).
Cuando se cierre el programa, se volverá a abrir (es lo que tu quieres, no?) para cerrarlo definitivamente haz click en Command1.
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ruta As String 'Lanza el programa de nuevo
ruta = App.Path & "\" & App.EXEName & ".exe"
Shell ruta
End 'Cierra el programa finalmente
End Sub
Autor
En línea
