AddHandler My.Application.StartupNextInstance, AddressOf Me.ApplicationRestart

Public Sub ApplicationRestart(Sender as Object,e as _
  Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs)
	Debug.Print("Anwendung ist bereits aktiv")
	For Each item As String In e.CommandLine
		Debug.Print(item)
	Next
End Sub