Ver Mensaje Individual
  #9 (permalink)  
Antiguo 11/07/2005, 18:04
Avatar de SlipkBlack
SlipkBlack
 
Fecha de Ingreso: julio-2005
Mensajes: 2
Antigüedad: 18 años, 9 meses
Puntos: 0
Prueva este codigo tio.
'
Option Explicit

Private Sub Command1_Click()
' Aqui simplemente un button con la instrucion Terminar
End
End Sub

Private Sub Form_Load()
'Aqui se verifica al iniciar el programa que el programa no este en ejecucion en caso de que lo este mandara un mensage de error y se cerrara el programa que trataba de iniciar sin afectar al primero.

If App.PrevInstance Then
Call MsgBox("El programa ya se esta ejecutando.", vbExclamation, "Error")
End
End If

End Sub
' Enjoy this code