module1.bas

LDO在线测试程序

Attribute VB_Name = "Module1"
Sub Main()
    If App.PrevInstance = True Then '防止程序重复启动
        End
    End If
    'frmSplash.Show
    'frmSplash.Refresh
    'delay (1000)
    Load frmMain '
    'Unload frmSplash
    frmMain.Show
End Sub