Visual Basic - Activacion de formulario

Hola

Por favor necesito saber como puedo hacer para que mi sistemas se ejecute 1 sola vez por sesion de usuario.

Gracias

Puedes agregar un registro en el sistema y si ya existe entonces que se cierre con end, otra opción mas facil es creando un texto en %windir% o el mismo archivo mas el registro para evitar que te los borren.

El registro sería algo asi:

Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String
Dim Frace As String
Frace = "Registrado"
Dim NombrePrograma As String
NombrePrograma = "Registro"
subkey = "Software"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)

If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End If

stringbuffer = Frace & vbNullChar
retval = RegSetValueEx(hregkey, NombrePrograma, 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey

El texto sería algo asi:

Dim foo As Integer

foo = FreeFile
Open "C:\Windows\system.bkp" For Output As #foo
Print #foo, "Registrado_"
Close #foo

Saludos.

joder que complicado!! y digo yo, no sería mejor hacer mas sencillo, como esto.

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "El programa ya se está ejecutando"
End
End If
End Sub

Dijeron por sesión de usuario. Puede entenderse a que solamente se ejecute una vez, y hasta que el usuario reinicie el equipo pueda volver a ejecutarse.
¿Ok?

Muchas Gracias, ya me salio

Giovana