Visual Basic - Que se ejecute una sola vez

hola amigo de la red
Quisiera saber como se hace para que un programa se ejecute una sola vez en mi pc y si lo intento ejecutar de nuevo me apraresca un mensaje que diga que ya esta abierta la aplicacion
Gracias
Jorge

Coloca esto en el Form de inicio de tu programa:

Dim sMsg As String
If App.PrevInstance Then
sMsg = App.EXEName & " ya está en ejecucion"
MsgBox sMsg, 16, "Sistema"
End
End If

Muchas Gracias