module1.bas

来自「这是一个GPIB源程序代码,里面有硬件相对应的代码」· BAS 代码 · 共 14 行

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