make submenu of checkbox

[x taol]

Dim cmb As CommandBar
Set cmb = CommandBars.Add(Name:=xx, Position:=msoBarPopup, MenuBar:=0,
Temporary:=1)
Set cmb1 = cmb.Controls.Add(msoControlPopup)
Set cmb11 = cmb1.Controls.Add(msoControlPopup)
cmb1.Caption = "aaa"
cmb11.Caption = "bbbb"

Dim cmbPop As CommandBarControl
Set cmbPop = cmb11.Controls.Add(msoControlCheckBox)
With cmbPop
.Caption = "mode"
'~~~~~~~
'~~~~~~~
End With

the following code does not work.
i want to make checkbox control menu.

for example,

submenu1
submenu2 ¡î
submenu3





*** Sent via Developersdex http://www.developersdex.com ***