@ Krackwatts
Podes parar de postear tonterias por favor?

@LeandroA
Yo uso el Resource Builder que soporta 32 bits y  hasta los nuevos en formato PNG

Si, se puede hacer con mutex, archivo, memoria, registro, dde, linea de comandos o cualquier cosa que te permita crear un flag, tambien podrias ver que proceso lo ejecuto o usar CreateProcess y pasarle los flags o mil cosas mas,  gracias por el dato.

Se puede hacer asi sin necesidad de usar gosub, con respecto al end no es recomendado para nada, aparte se supone que esta es la primer funcion asi que no tendria que haber nada cargado exepto el form de inicio.

Con respecto a las variables de entorno, son locales no globales

Private Sub Form_Load()
    If App.PrevInstance and _
         Not Environ$("RESTARTED") = "1" Then
            Call Unload(Me)
    Else
        '// Your Code Here
    End If
 
End Sub

Podrias hacer algo asi

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("RESTARTED", "1")
    Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus)
    Call Unload(Me)
End Sub
 
Private Sub Form_Load()
    If App.PrevInstance Then
        If Not Environ$("RESTARTED") = "1" Then
            Gosub Quit:
        End If
    End If
 
    '// Your Code Here
 
    Exit Sub 
 
Quit:
    Call Unload(Me)
End Sub
 
 

Podes usar environ$("VARIABLE") o tambien asi environ(1) por ejemplo

Lo haces con APIs

Bueno aca les dejo una mini clase para crear controles RichTextBox en tiempo de ejecucion, es muy simple pero viene ideal para EULA, Readme o Help files.

http://www.uploadsourcecode.com.ar/d/IxpzMQ8JDQDdsy6njvxsLYf70SivC04o

Un poco de feedback

1)

If UCase$(Right$(sPath, Len("VB6.EXE"))) = "VB6.EXE" Then Exit Function

podrias cambiarlo por If  App.LogMode=0 then exit function <- Edite aca

2)

el buffer de GetModuleFileName de 128 me parece chico tendria que ser
Private Const MAX_PATH As Long = 260 o ver que la funcion no retorne ERROR_INSUFFICIENT_BUFFER en cuyo caso tendras que aumentar el tamaño buffer

3)

Agregar nombre y descripcion en el manifest

4)

Soporte para Vista y sus diferentes manifest

5)
Hay una error grande en el codigo, fijate que si no existe el manifest intenta crear uno si es xp, sino pasa de largo y reinicia la aplicacion de igual manera... y lo vuelve a hacer infinitamente

JIJI simple y al pie seba! =)