Public Sub DeleteBug(BugNum As Integer) 

' Delete a defect

    Dim BugF As BugFactory
    Set BugF = tdc.BugFactory
    
    BugF.RemoveItem (BugNum)
    
End Sub