tolbar menü

Merhaba hocalarım,
Tolbardaki menüleri propertiz ile degilde kod ile oluşturmak istiyorum.
nasıl yapabilirim.
Hani Treewievdeki gibi...
Dim nodobject As Node
With Me.TreeView4.Nodes
'ÖN KAYIT
'Set nodobject = .Add(, , "KAYITLAR", "KAYITLARI ", 7)

Set nodobject = .Add(, , "aa", " OGRENCILER ", 1)
With nodobject
.ForeColor = vbRed
.Expanded = True
End With
Set nodobject = .Add(, , "ÇIKIŞ", " PROĞRAMI KAPAT ", 3)

uygulamayı ekleyebilir misiniz ?

Örnek ektedir,
Menüleri kod ile oluşturmak istiyorum.?

Merhabalar,
gerçi sayın akd de eklemiş ama yine bende ekleyim istedim.

Bu konuda fikri olan yokmu arkadaşlar...