module1.bas

来自「利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Option Explicit
Sub Main()
Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
    End
    End If
    Unload fLogin
    Set fMainForm = New frmMain
    Load fMainForm
    fMainForm.Show
End Sub