統一窗體編輯命令按鈕到工具欄

Public Sub PToolbarCtl(frm As Form)  '編輯工具欄的控制
    If frm.ChalkYes = True Then
        frm.Seal.Visible = True
        frm.Seal.Caption = "已記帳"
        CommandBars("PToolbar").Controls(5).Caption = "反記帳"
        CommandBars("PToolbar").Controls(5).Enabled = True
        CommandBars("PToolbar").Controls(4).Caption = "反審核"
        CommandBars("PToolbar").Controls(4).Enabled = False
        CommandBars("PToolbar").Controls(2).Enabled = False
    ElseIf frm.AuditYes = True Then
        frm.Seal.Visible = True