RecorteX

A veces nos topamos con la necesidad de que solo se pueda ejecutar una instancia de nuestro sistema, con esta función lo evitamos.

descargar
 
Function PrevInstance() As Boolean
   If UBound(System.Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
      Return True
   Else
      Return False
   End If
End Function
 

Se usa así

descargar
 
   if PrevExistance() = True Then Application.Exit()
 

nota los valores booleanos están implícitamente mostrados para facilidad de comprensión.