            Exit For
                  End If
               End If
            End If
         End If
      Next vlhWnd
   End If
End Function

Private Sub CreateChevronBars()
Dim barAddOrRemoveBar As cCommandBarInt
Dim btnAddOrRemoveBar As cButtonInt
Dim barAddOrRemove As cCommandBarInt
Dim btnAddOrRemove As cButtonInt
Dim btnInt As cButtonInt
Dim barChevron As cCommandBarInt
Dim btnChevron As cButtonInt
   
   Set barAddOrRemove = BarAdd("CHEVRON:ADDORREMOVE")
   Set btnInt = ButtonAdd("CHEVRON:ADDORREMO