mdl_boot.bas

图书馆信息管理系统

Attribute VB_Name = "Mdl_Boot"
Option Explicit

Sub Main()
On Error Resume Next
    If App.PrevInstance Then End
    AppPath = App.Path: If Right$(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
    AppVersion = App.Major & "." & App.Minor & "." & App.Revision
    
    Frm_Login.Show
End Sub