IsExeRunning

'Nel form load

If App.PrevInstance Then
msg$ = "Una copia di " & App.EXEName & " e' gia' in funzione" & Chr$(13) & "se ne vuole avviare un'altra ?"
re = MsgBox(msg$, 52)
If re = 6 Then GoTo init Else End
End If
init:
'da qui si fa cominciare il programma