Set objBar = objSlide.Shapes.AddShape(msoShapeDiamond, intBarLeft - _
  intBarHeight / 2, intBarTop, intBarHeight, intBarHeight)
                    With objBar
                        With .Fill
                            .Solid
                            .Visible = msoTrue
                            '>>> bring diamond to front
                            .ZOrder msoBringToFront                      _
        If varTask.Critical Then
                                ' critical milestone in red
                                .ForeColor.RGB = RGB(cnstRedCriticalTask, _
                                  cnstGreenCriticalTask, cnstBlueCriticalTask)
                            Else
                                .ForeColor.RGB = RGB(cnstRedMilestone, _
                                  cnstGreenMilestone, cnstBlueMilestone)
                            End If
                        End With ' .Fill
                        .Line.Visible = msoFalse
                    End With ' objBar