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 Sub
End Module