Dim app 'As MGCPCB.Application Set app = Application ' GetObject(, "MGCPCB.Application") Dim docObj 'As MGCPCB.Document Set docObj = GetLicensedDoc(app) 'If (docObj Is Nothing) Then Exit Sub docObj.EditorControl.InteractiveDRC=Not(docObj.EditorControl.InteractiveDRC)