startup.bas

一个图书馆的VB做的mis系统

Attribute VB_Name = "startup"
Sub main()


'程序初始化


load_form.Show

login_form.Hide







End Sub




Public Sub ends()


Dim s As Integer



    s = MsgBox("是否退出系统", vbOKCancel, "确认")
 
 If s = 1 Then

   End

 End If


End Sub