12/05/2005, 14:52
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 19 años, 1 mes Puntos: 2 | |
| Para ejecutar una sola ves una aplicación este es el codigo robertomollo espero que te sirva al igual que el ejemplito que le puse a MaxExtreme.
Private Sub Form_Load()
Dim Ejecutandose As Integer
Ejecutandose = App.PrevInstance
If Ejecutandose <> 0 Then
MsgBox "El Programa ya se esta ejecutando", vbInformation, "Programa"
End
End If
End Sub
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"
Yosvanis Cruz Alias VisualGuallabo
Ycruz |