Friend Class Program
 
	Public Shared StartArgs As String()
 
	Public Shared Sub Main(ByVal args As String())
		'So hat man evtl. vorhandene Commandline-Argumente schnell zur Hand
		StartArgs = args
		Try
			Application.EnableVisualStyles()
			Application.SetCompatibleTextRenderingDefault(False)
			Using f As New Form1
				Application.Run(f)
			End Using
		Catch ex As Exception
			MsgBox(ex.ToString, MsgBoxStyle.Critical, "Unhandled exception")
		End Try
	End Sub
End Class