-   
- Private Sub Form_Initialize() 
-     Dim Ya_Existe As Integer 
-     Ya_Existe = App.PrevInstance 
-   
-     If Ya_Existe <> 0 Then 
-        MsgBox "El Programa ya se esta ejecutando, sólo se permite una instancia", 0 + 48, "nombre del programa aquí ..." 
-        End 
-      End If 
- End Sub 
-