Private Sub SaveAsExample()
' This example saves the drawing as a file called TESTING.DWG.
Application.ActiveDocument.SaveAs ("testing")
End Sub