module1.bas

来自「地理计算器的源码」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"
* Public fMainForm As frmMain


Sub Main()
    frmSplash.Show
    tmrSwitch.Time
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub