CanBringToFront Property

'Declaration
 
Public Overridable ReadOnly Property CanBringToFront As Boolean

Private Sub AnnAutomation_CanBringToFront(ByVal automation As AnnAutomation)
   ' first make sure no objects are in this automation container
   automation.Container.Children.Clear()
   ' add three objects to the automation
   Dim brush() As Color = {Colors.Red, Colors.Green, Colors.Blue}
   Dim rectObj As AnnRectangleObject() = New AnnRectangleObject(2) {}
   Dim x As Integer = 100
   Dim y As Integer = 100
   For i As Integer = 0 To 2
      rectObj(i) = New AnnRectangleObject()
      rectObj(i).Rect = New Rect(x, y, 100, 100)
      rectObj(i).Stroke = Colors.Blue
      rectObj(i).StrokeThickness = 2.0

      rectObj(i).Fill = brush(i)
      rectObj(i).Header = String.Format("Rectangle {0}", i + 1)
      rectObj(i).IsHeaderVisible = True
      automation.Container.Children.Add(rectObj(i))

      x += 25
      y += 25
   Next i


   MessageBox.Show("Rectangle1 -> Rectangle2 -> Rectangle3.  Now will select Rectangle1 and move it up")

   ' select rectangle 1 then move it one up in the Z-order
   automation.StartEditing(rectObj(0), False)
   If automation.CanBringToFront Then
      automation.BringToFront(False)
   End If

   MessageBox.Show("Rectangle2 -> Rectangle1 -> Rectangle3.  Now will select Rectangle3 and move it down")

   ' select rectangle 3 then move it down in the Z-order
   automation.StartEditing(rectObj(2), False)
   If automation.CanSendToBack Then
      automation.SendToBack(False)
   End If

   MessageBox.Show("Rectangle2 -> Rectangle3 -> Rectangle1.  Now will select Rectangle2 and move to top")

   ' select rectangle 2 then move it to first of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanBringToFirst Then
      automation.BringToFront(True)
   End If

   MessageBox.Show("Rectangle3 -> Rectangle1 -> Rectangle2.  Now will select Rectangle2 and move to the bottom")

   ' select rectangle 2 then move it to bottom of Z-order
   automation.StartEditing(rectObj(1), False)
   If automation.CanSendToLast Then
      automation.SendToBack(True)
   End If
End Sub