Bien... aqui esta el codigo que te permite tverificar si el mismo programa ya esta ejecutandose... y si es asi, ya no permitir ejecutar otra instancia...
Copealo y pegalo en la seccion (General) (Declaraciones) de un formulario...
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Este programa [" & App.EXEName & ".exe]" & " ya está en ejecución", vbInformation, "Aplicación."
End 'Terminar esta instancia
End If
End Sub
Para probarlo, crea el ejecutable y luego desde el explorador dale doble clik, cuando ya este en ejecucion vuelve a darle doble click al archivo y observa lo que pasa...
Bueno... espero te sea util... (Probado en VB5)