Article ID: 180496
Article Last Modified on 3/11/2005
Private Sub mnuNew_Click()
'Normal New menu code here
Drawline 0,0,1000,1000 'Redraw line.
End Sub
Option Explicit
Private Sub Command1_Click()
DrawLine 0, 0, 1000, 1000
End Sub
Private Sub Form_Load()
Dim mnuMain As CommandbarLib.CommandBarMenuBar
Dim mnuFile As CommandbarLib.Item
Set mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "MainMenu")
'add File menu items
Set mnuFile = mnuMain.Items.Add(1, "File", "File")
mnuFile.SubItems.Add , "Open", "Open"
mnuFile.SubItems.Add , "Add", "Add"
mnuFile.SubItems.Add , "Update", "Update"
mnuFile.SubItems.Add , "Delete", "Delete"
End Sub
Additional query words: wce vbce vbce6 evb
Keywords: kbbug kbtoolkit kbpending KB180496