Private Sub Form_Load()
Dim main_menu As Long
Dim sub_menu As Long
Dim menu_info As MENUITEMINFO
Dim i As Integer

    main_menu = GetMenu(hwnd)
    sub_menu = GetSubMenu(main_menu, 0)
    For i = 0 To 2
        With menu_info
            .cbSize = Len(menu_info)
            .fMask = MIIM_TYPE
            .fType = MFT_BITMAP
            .dwTypeData = picFace(i).Picture
        End With
        SetMenuItemInfo sub_menu, i, True, menu_info
    Next i
End Sub