'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 |