model.bas

学生宿舍管理系统vb源码

Attribute VB_Name = "Module1"
Public Sub main()
    Shell "Regsvr32.exe /s """ & App.Path & "\as97Popup.ocx"""
    Shell "Regsvr32.exe /s """ & App.Path & "\StoneXP.ocx"""
    Shell "Regsvr32.exe /s """ & App.Path & "\Toolbox.ocx"""
    Shell "Regsvr32.exe /s """ & App.Path & "\FlexCell.ocx"""
    MsgBox "注册成功!", vbOKOnly + vbInformation, "注册控件"
End Sub