VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3030
   ClientLeft      =   225
   ClientTop       =   855
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   ScaleHeight     =   3030
   ScaleWidth      =   4560
   StartUpPosition =   3  'Windows Default
   Begin VB.Image Image4 
      Height          =   345
      Left            =   360
      Picture         =   "Form1.frx":0000
      Top             =   1080
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.Image Image3 
      Height          =   255
      Left            =   1800
      Picture         =   "Form1.frx":06BA
      Top             =   360
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.Image Image2 
      Height          =   240
      Left            =   840
      Picture         =   "Form1.frx":0C0C
      Top             =   360
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.Image Image1 
      Height          =   225
      Left            =   120
      Picture         =   "Form1.frx":0D0E
      Top             =   360
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&Файл"
      Begin VB.Menu mnuOpen 
         Caption         =   "&Открыть"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuSave 
         Caption         =   "&Сохранить"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnucherta 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Выход"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuTeor 
      Caption         =   "Теория"
   End
   Begin VB.Menu mnuPrakt 
      Caption         =   "&Практика"
      Begin VB.Menu mnuTest 
         Caption         =   "Тест"
         Shortcut        =   ^I
      End
      Begin VB.Menu mnuSoberi 
         Caption         =   "Собери картинку"
      End
      Begin VB.Menu mnuKorz 
         Caption         =   "Корзина"
      End
      Begin VB.Menu mnuKross 
         Caption         =   "Кроссворд"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Private Const MF_BITMAP = &H4&

Private Sub Form_Load()
Dim M As Long, B As Long, H As Long, G As Long ' ????????? ??????????

M = GetMenu(Form1.hWnd)
B = GetSubMenu(M, 0)

' H = GetMenuItemID(B, ????? ???? ??????? ??????? ????, ???????? ???????? ????? ???????? ??????????)
H = GetMenuItemID(B, 0)
G = SetMenuItemBitmaps(M, H, MF_BITMAP, Image1.Picture, Image1.Picture) ' ????? ???? ??????? ??? image, ? ??????? ????? ?????????? ????????

H = GetMenuItemID(B, 1)
G = SetMenuItemBitmaps(M, H, MF_BITMAP, Image2.Picture, Image2.Picture)

H = GetMenuItemID(B, 2)
G = SetMenuItemBitmaps(M, H, MF_BITMAP, Image3.Picture, Image3.Picture)

H = GetMenuItemID(B, 3)
G = SetMenuItemBitmaps(M, H, MF_BITMAP, Image4.Picture, Image4.Picture)

H = GetMenuItemID(B, 6)
G = SetMenuItemBitmaps(M, H, MF_BITMAP, Image4.Picture, Image4.Picture)
End Sub

Private Sub mnuExit_Click()
End
End Sub
