Example:

1. Sub Main

   1. Dim visio As Object

      Set visio = CreateObject( "visio.application" )

      Dim draw As Object

      Set draw = visio.Documents

      draw.Open "c:\visio\drawings\Sample1.vsd"

      MsgBox "Open docs: " & draw.Count

      Dim page As Object

      Set page = visio.ActivePage

      Dim red As Object

      Set red = page.DrawRectangle (1, 9, 7.5, 4.5)

      red.FillStyle = "Red fill"

      Dim cyan As Object

      Set cyan = page.DrawOval (2.5, 8.5, 5.75, 5.25)

      cyan.FillStyle = "Cyan fill"

      Dim green As Object

      Set green = page.DrawOval (1.5, 6.25, 2.5, 5.25)

      green.FillStyle = "Green fill"

      Dim DarkBlue As Object

      set DarkBlue = page.DrawOval (6, 8.75, 7, 7.75)

      DarkBlue.FillStyle = "Blue dark fill"

      visio.Quit

   End Sub