RunCommand method example

  
Private Sub RunCommand_Example()
    Dim sCmd As String
    sCmd = "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
    Thisdrawing.Application.RunCommand sCmd 
    sCmd = "_Line" & vbCr & "0,0 " & vbCr & "4,3" & vbCr
    Thisdrawing.Application..RunCommand sCmd 
End Sub