O in alternativa puoi sempre mettere come oggetto di avvio una Sub Main siffatta:
codice:
Public Sub Main()
    If App.PrevInstance Then
        MsgBox "l'applicazione è già stata avviata"
    Else
        NomeForm.Show True
    End If
End Sub
.