Como evitar multiples instancias de una misma aplicacion en una lan

[black_devil]

Hola, me funciona el código pero solo si la aplicación esta abierta y la intentas de ejecutar por segunda vez en la misma máquina ..

Código:

 If App.PrevInstance = True Then
        MsgBox "El programa ya está siendo ejecutado", vbCritical + vbOKOnly, "Mensaje de alerta"
     End
        ' O también, puedes poner que el programa gane el foco cuando se abre por segunda vez
    End If