[SOLUCIONADO] Rutas Relativas en visual Basic 6 portable

[fitojdj]

Hola a todos amigos, tengo una pregunta simple, hize este codigo que lanza un exe con un App.Path

Código:

Private Sub Command1_Click()
Private Sub Command1_Click()
Shell (App.Path & "\sys\Oda_Install.exe")
End Sub

mi pregunta es como hacer que se cierre el pograma despues de ejecutar esta accion, muchas gracias por su tiempo

[fitojdj]

listo solo agrege Unload Me

Código vb:

Private Sub Command1_Click()
Shell (App.Path & "\sys\Oda_Install.exe")
 Unload Me
End Sub