Que debo hacer para que un programa no se ejecute varias veces??

[MaxExtreme]

Iniciado por aldo1982

aca te paso el codigo:

Private Sub Form_Load()
Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
If Ya_Existe <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "Mensaje"
End
End If
End Sub

Borra este mensaje, ya.