Sub Main做启动窗体

Module Module1                                                                        '建一个模块    Public hh As Boolean    Public Sub main()        Dim FrmNew As New ForLogin        Dim FrmMainNew As New FrmMain        FrmNew.ShowDialog()        If hh Then            FrmMainNew.WindowState = FormWindowState.Maximized            FrmMainNew.ShowDialog()        End If    End SubEnd Module