Tenes que colocar esto. Creo q este codigo funciona solo cuando abris el .exe, no cuando compilas en el VB:
espero que te sirva. Chau
GeCkO
Código [Seleccionar]
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