VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsToolbar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'Class that defines the Toolbar
Option Explicit
Implements IToolBarDef

Private Property Get IToolBarDef_Caption() As String
    IToolBarDef_Caption = "Samples: Plan Profile Tools"
End Property

Private Sub IToolBarDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriCore.IItemDef)
    Select Case pos
        Case 0
            itemDef.ID = "PlanAndProfile.clsProperties"
            itemDef.Group = False
        Case 1
            itemDef.ID = "PlanAndProfile.clsCreatePlanProfile"
            itemDef.Group = False
        Case 2
            itemDef.ID = "PlanAndProfile.clsDeletePlanProfile"
            itemDef.Group = False
        Case 3
            itemDef.ID = "PlanAndProfile.clsRotateMap"
            itemDef.Group = False
    End Select
End Sub

Private Property Get IToolBarDef_ItemCount() As Long
    IToolBarDef_ItemCount = 4
End Property

Private Property Get IToolBarDef_Name() As String
    IToolBarDef_Name = "Plan Profile Tools"
End Property
