Macro to draw rectangles [Visio Macros]

Sub DrawThreeRectangles()

  Dim rect1 As Shape
  Dim rect2 As Shape
  Dim rect3 As Shape
  
  Set rect1 = ActivePage.DrawRectangle(0, 0, 1, 1)
  Set rect2 = ActivePage.DrawRectangle(2, 2, 3, 3)
  Set rect3 = ActivePage.DrawRectangle(4, 4, 5, 5)
  
  rect1.Text = "First"
  rect2.Text = "Second"
  rect3.Text = "Third"

End Sub