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