subs.bas

功能强大的个人工作通讯录

Attribute VB_Name = "subs"
Public Sub GLQX()
If QX <> "管理员" And TopRight <> "超级管理员" Then
    MsgBox "非管理员没有执行此操作的权限", 0 + 64, "提示"
    Exit Sub
End If

End Sub
Sub Main()
    If App.PrevInstance = True Then
        MsgBox "程序已经运行！如果软件已最小化，请点击任务栏或在右下角单击软件图标", vbCritical, "错误！"
        End
    End If
login.Show
End Sub