John,

In VFP DECLARE LONG = INTEGER, ByVal = is not needed in VFP. So the declares ought to be:

declare integer SetMenuItemBitmaps in win32api integer hMenu, integer nPosition, integer wFlags, integer hBitmapUnchecked, integer hBitmapChecked

declare integer GetMenu in win32api integer hwnd

declare integer GetSubMenu in win32api integer hMenu, integer nPos

I have no idea whether or not those api calls are going to work with a VFP menu. They may not if VFP doesn't use a standard windows menu inside it's windows.

>
>SetMenuItemBitmaps _
>GetSubMenu(GetMenu(Me.hwnd), 0), 1, _
>&H400, Picture1.Picture, 0
>
> How could I do call API as above which menu added in my Top Level form?