¿por que END en vez de Unload? pues quiza se quede algun form abierto por ahi, en fin... gracias por tu ayuda
Código
Option Explicit Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long Private Sub Command1_Click() Call SetEnvironmentVariable("FLAG", "1") Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus) End End Sub Private Sub Form_Load() If App.PrevInstance = True Then If Not Environ$("FLAG") = "1" Then End End If End If End Sub
PD.- que pasa con la variable creada? se borra? parece que si pues voy a la consola escribo SET y no existe tales variables. ¿o donde estan?