سلام.اون فرم رو بزرگش کن میفهمی چه اتفاقی افتاده.البته اینو خودم ننوشتم اما توی سیستمم دم دستم بود سریع برات گذاشتم.اتفاقی که افتاده اینه
Dim intItem As Integer
Dim intMenu As Integer
With mnbMenu
.Locked = True
.MaxMenus = 3
.CurrentMenu = .MaxMenus
For intMenu = 1 To .MaxMenus
.CurrentMenu = intMenu
.MaxItems = Choose(intMenu, 4, 9, 6)
.ButtonCaption = Choose(intMenu, "Modules", "Settings", "Tools")
.ButtonIcon = imgMenu.Item(intMenu - 1).Picture
For intItem = 1 To .MaxItems
.CurrentItem = intItem
If intMenu = 1 Then
.ItemCaption = Choose(intItem, "Add", "Message", "Picture", "Exit")
.ItemIcon = imgAdmin.Item(intItem - 1).Picture
ElseIf intMenu = 2 Then
.ItemCaption = Choose(intItem, "Date", "Time", "Wipe info", "Favorits", "Agenda", "First quarter", "Second quarter", "Third quarter", "Fourth quarter")
.ItemIcon = imgSettings.Item(intItem - 1).Picture
ElseIf intMenu = 3 Then
.ItemCaption = Choose(intItem, "Disk", "Trash", "Refresh", "Global info", "Settings", "Lock menu")
.ItemIcon = imgTools.Item(intItem - 1).Picture
End If
Next 'intItem
Next 'intMenu
.MenuPassword = True
.CurrentMenu = .StartupMenu
.SoundMenuOpen = True
.SoundItemScroll = True
.Locked = False
End With
این کد همون منوی سمت چپ هست.در واقع این کار از طریق کد انجام شده است.موفق باشید