VERSION 5.00
Object = "{5D10D93B-1A63-4690-AAE8-86010D343405}#1.0#0"; "PCDMUI.dll"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Form1"
   ClientHeight    =   4020
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3570
   ControlBox      =   0   'False
   ForeColor       =   &H80000008&
   ScaleHeight     =   4020
   ScaleWidth      =   3570
   Begin PCDMUILibCtl.PCDMCommander PCDMCommander1 
      Height          =   375
      Left            =   120
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   720
      Width           =   3255
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const SBM_COPY = 0
Const SBM_CUT = 1
Const SBM_DELETE = 2
Const SBM_FIND = 3
Const SBM_HELP = 4
Const SBM_NEW = 5
Const SBM_OPEN = 6
Const SBM_PASTE = 7
Const SBM_PRINT = 8
Const SBM_PROP = 9
Const SBM_REDO = 10
Const SBM_SAVE = 11
Const SBM_SORTASC = 12
Const SBM_SORTDES = 13
Const SBM_UNDO = 14
Const SBM_SYNC = 15
Const SBM_SEND = 16
Const SBM_SEP = 99

Const TBSTATE_CHECKED = 1
Const TBSTATE_PRESSED = 2
Const TBSTATE_ENABLED = 4
Const TBSTATE_HIDDEN = 8
Const TBSTATE_INDETERMINATE = 16
Const TBSTATE_WRAP = 32

Const IDCLOSE = 8

Const RBBS_BREAK = 1
Const RBBS_FIXEDSIZE = 2
Const RBBS_CHILDEDGE = 4
Const RBBS_HIDDEN = 8
Const RBBS_NOVERT = 16
Const RBBS_FIXEDBMP = 32
Const RBBS_VARIABLEHEIGHT = 64
Const RBBS_GRIPPERALWAYS = 128
Const RBBS_NOGRIPPER = 256

Private Sub Form_Load()
PCDMCommander1.SetCmdBarType 1
PCDMCommander1.CreateBar 100, 0
PCDMCommander1.InsertMenu "File", 0
PCDMCommander1.InsertMenuItem "New", 0, 0, 1001
PCDMCommander1.InsertMenuItem "", 0, 1, 0
PCDMCommander1.InsertMenuItem "Load", 0, 2, 1002
PCDMCommander1.InsertMenuItem "Save", 0, 3, 1003
PCDMCommander1.InsertMenuItem "Exit", 0, 4, IDCLOSE
PCDMCommander1.InsertMenu "Edit", 1
PCDMCommander1.InsertMenuItem "Undo", 1, 0, 1004
PCDMCommander1.InsertMenuItem "Copy", 1, 1, 1005
PCDMCommander1.InsertMenuItem "Paste", 1, 2, 1006
PCDMCommander1.CreateBar 101, RBBS_FIXEDBMP
'PCDMCommander1.InsertButton SBM_SEP, TBSTATE_ENABLED, 0, 0, ""
PCDMCommander1.InsertButton SBM_NEW, TBSTATE_ENABLED, 1, 1001, "New File"
PCDMCommander1.InsertButton SBM_SEP, TBSTATE_ENABLED, 2, 0, ""
PCDMCommander1.InsertButton SBM_OPEN, TBSTATE_ENABLED, 3, 1002, "Opens a file"
PCDMCommander1.InsertButton SBM_SAVE, TBSTATE_ENABLED, 4, 1003, "Saves a file"
PCDMCommander1.CreateBar 102, RBBS_FIXEDBMP + RBBS_BREAK
PCDMCommander1.InsertComboBox 150, 0, 1008
PCDMCommander1.AddStringToComboBox 1008, "<CLR>"
PCDMCommander1.AddStringToComboBox 1008, "First Choice"
PCDMCommander1.AddStringToComboBox 1008, "Second Choice"
PCDMCommander1.SetAdornments 0
End Sub

Private Sub PCDMCommander1_CmdBarAction(ByVal ID As Long, ByVal text As String)
    If ID = IDCLOSE Then
        App.End
    Else
        MsgBox "The ID " & ID & " fired the string <" & text & ">"
    End If
End Sub