initialui.vb

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

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