Hello. Thank you for listening to my problem:

I've been adding bitmaps to the menus (trying to make the
UI cover up the fact it's a pretty lame program) but there's
a small problem. I've been using the bmps from the TlBr_W95
folder, but they seem too big, you see the problem is they
get 'clipped' on the left and bottom edges, so you can't see
the full image. Since I would't expect good old Microsoft to
make a mistake, I think it's my fault: But what am I doing
wrong?

Code:
PS: Here's the code:

Private Declare Function GetMenu Lib "user32" (ByVal hwnd 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 Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Sub CreateMenuBitMaps()
Dim hMenu As Long, hSubMenu As Long, hMenuItemID As Long
hMenu = GetMenu(frmWord.hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
hMenuItemID = GetMenuItemID(hSubMenu, 0)
SetMenuItemBitmaps hSubMenu, hMenuItemID, 0, frmWord.imglstMenu.ListImages(1).Picture, frmWord.imglstMenu.ListImages(1).Picture
End Sub
Also, does anybody know how to change the Menu's font or the Titlebar's font?

I'm just trying to fit as many questions as possible here.


[Edited by V(ery) Basic on 07-13-2000 at 02:52 PM]