[VB6] - put icons in menus

[cambalinho]

i have 1 code for put images on menu:

Private Sub Command1_Click()
    Dim pObject As Long
    Dim dcMemory As Long
    Dim hMemoryBitmap As Long
    Dim dummy As Long
    dcMemory = CreateCompatibleDC(Picture1.hdc)
    hMemoryBitmap = CreateCompatibleBitmap(Picture1.hdc, Picture1.ScaleWidth \ Screen.TwipsPerPixelX, Picture1.ScaleHeight \ Screen.TwipsPerPixelY)

    pObject = SelectObject(dcMemory, hMemoryBitmap)
    dummy = BitBlt(dcMemory, 0, 0, Picture1.ScaleWidth \ Screen.TwipsPerPixelX, Picture1.ScaleHeight \ Screen.TwipsPerPixelY, Picture1.hdc, 0, 0, &HCC0020)
    dummy = SelectObject(dcMemory, pObject)
    dummy = ModifyMenu(GetSubMenu(GetMenu(Me.hwnd), 0), 0, &H404, 0, _
            hMemoryBitmap)
End Sub

i can see 2 things in these code:
1- why the caption is losed?
2 - why, when the item is selected(mouse move), the image is inverted?

[Keith]

There are loads of ways to add pics to menu items. The common way is to add all the pics to an ImageList. I can't see your full code so I can't see why the Caption is lost?

[khin-chan]

yea, thank you so much for the information. but can you do me a favor?
can you help me with a project that involves access and the data base
i want to make a registry of a library and stuff
how can i open or use the database in vb
please help,
sincerely,
khin-chan

Edit: Keith email removed as you'll get loads of spam.

[Keith]

Welcome to the forum khin-chan.

Well there are different ways to make database apps ADO, Adodc, OLE DB, ODBC, RDS, DAO, Jet, JRO, and the old Data control. ADO, DAO, Adodc and the Data control are the common ones used.

I would think the easiest way is to search PSC as there are thousands of database apps on there so you can choose which way suits you the best.