''' <summary>''' 应用程序的主入口点。''' </summary><STAThread> _Private Shared Sub Main(args As String())Application.EnableVisualStyles()Application.SetCompatibleTextRenderingDefault(False)' 这里检查是否有外部参数传输进来过If args.Length > 0 ThenFor i As Integer = 0 To args.Length - 1NextEnd If
Application.Run(mainForm)End Sub