Program ile birlikte bilgisayarınıza kurulan fakat siz onu bulmadıkça gizlenen ImageList kontrolü sayesinde bir kaç satır kodla bu işi gerçekleştirebiliyorsunuz. Programı çalıştırdığınız anda ImageList içindeki küçük simgeler menü seçeneklerine yerleştirilecek ve program sonlanana kadar orada kalacaktır. Private Sub Form_Load Dim i% Dim hMenu, hSubMenu, menuID, x hMenu = GetMenu hSubMenu = GetSubMenu(hMenu, 0) For i = 1 To 4 menuID = GetMenuItemID(hSubMenu, i - 1) x = SetMenuItemBitmaps(hMenu, menuID, &H4, img. ListImages . Picture, img. ListImages . Picture) Next menuID = GetMenuItemID(hSubMenu, 5) x = SetMenuItemBitmaps(hMenu, menuID, 0, img. ListImages(5). Picture, 0&) End Sub