initialui.vb

来自「本文件为进销存管理系统的代码 在VB的环境下运行 用比较简单的结构完成的」· VB 代码 · 共 15 行

Module InitialUI
    Sub Main()
        Dim fm1 As New frmWelcome
        fm1.ShowDialog()
        Dim fm2 As New frmLogin
        fm2.ShowDialog()
        If pass = True Then
            Dim fm3 As New frmMain
            fm3.ShowDialog()
        Else
            End
        End If
    End Sub
End Module