效果图:

Option Explicit

'在菜单上添加自绘图形的例子

'窗体上添加一个Picture1,一个Command1,一个至少带一个下级菜单的顶级菜单.

'BY 嗷嗷叫的老马
'http://www.m5home.com/

Private Declare Function GetSubMenu Lib "user32.dll" ( _
                          ByVal hMenu As Long, _
                          ByVal nPos As Long) As Long
Private Declare Function GetMenu Lib "user32.dll" ( _
                          ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32.dll" ( _
                          ByVal hMenu As Long, _
                          ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32.dll" ( _
                          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 DrawIcon Lib "user32.dll" ( _
                          ByVal hdc As Long, _
                          ByVal x As Long, _
                          ByVal y As Long, _
                          ByVal hIcon As Long) As Long
Private Const MF_BITMAP As Long = &H4&

Private Sub Command1_Click()
    Dim hMenu As Long, hSubMenu As Long, hID As Long

'效果一:绘上当前窗体图标
    '    DrawIcon Picture1.hdc, -5, -5, Me.Icon.Handle

'效果二:画个小图....
    Picture1.Line (1, 1)-(11, 11), vbBlue, B
    Picture1.Line (1, 1)-(11, 11), vbRed
    Picture1.Line (1, 11)-(11, 1), vbRed

Set Picture1.Picture = Picture1.Image           '这一句是关键

hMenu = GetMenu(Me.hwnd)
    hSubMenu = GetSubMenu(hMenu, 0)
    hID = GetMenuItemID(hSubMenu, 0)
    SetMenuItemBitmaps hMenu, hID, MF_BITMAP, Picture1.Picture, Picture1.Picture
End Sub

Private Sub Form_Load()
    With Picture1
        .Move .Left, .Top, 15 * 15, 15 * 15
        .Appearance = 0
        .AutoRedraw = True
        .ScaleMode = vbPixels
    End With
End Sub

摘自：网络整理

相关文章参考：

※vb屏蔽文本框点右键时的弹出菜单

※VB 小技巧自定义TextBox文本框右键菜单

※VB 自启动建立右键菜单

※VB在菜单上增加图标

※vb在 ListBox 之中点击右键弹出菜单

※【引用】在VB6.0中实现弹出式菜单的几种方法

※在vb中实现真正锁定的带自定义菜单的文本控件

※记录一下:在菜单上添加自绘图形的例子(VB6代码)

★VB部分相关文章推荐：★

☆VB6 中善用ByRef 提升速度

☆[vb] Set 语句

☆VB_Format自定义格式

☆用VB如读取内存地址

☆vb FindwindowEx的用法实例

☆进制转化进10进制数

☆收藏:如何获取当前已经打开的IE对象(VB6代码)

☆DXInput中键码的转换(VB6.0代码)

☆如何在VB6.0里动态使用具有事件的对象

☆[vb]格式输出Format函数

☆读取和写入Windows的INI文件

☆简述UTF－8编码原理及其文本文件的读写技术【转】

☆VB中的文件操作

☆VB中的文件操作文档

☆vb 中拷贝文件

☆VB反跟踪技术点滴

☆VB共享软件防破解设计技术初探（二）

☆VB共享软件防破解设计技术初探（三）

☆VB共享软件防破解设计技术初探（一）

☆RTF文件格式【转】

☆VB压缩技术

☆[vb]FSO对象模型在VB中的应用

☆VB 窗体实现文件拖拽获取路径方法

☆VB：注册表的读写

☆vb中空操作（等待）的指令、延时方法

☆VB让控件可以当标题栏拖动

☆FSO对象新建、打开、保存文件

☆获取网关IP和MAC 的VB源码

☆VB文件关联

☆vb获得本地和远程的MAC地址(网卡地址)

☆VB中ShellExeCute的应用

☆VB打开网址方法大全

☆vb简单控制音量大小及静音的方法

☆拖动无边框窗体(VB6代码)

☆VB使用FileSystemObject对象写文件

☆VB 从注册表中删除项及其某个值

☆vb 字符串转为数字和判断字符串是否是数字字符串【转】

☆vb按热键启动应用程序

☆VB的坐标系统综述

☆VB利用API函数来处理文件

☆关于VB中Shell及ShellExecute的总结与记录

☆[vb]On Error GoTo 0和On Error resume区别

☆[vb]On Error 语句

☆记录一下:在菜单上添加自绘图形的例子(VB6代码)

☆vb中findwindow的疑惑

☆[vb]FindWindow使用方法

☆常用文件类[转，无法运行通，待调试]

☆[vb]url utf-8编码

☆VB中的Unicode 和Ansi 格式

☆VB中的format格式化函数

☆VB中字符串匹配的多种方式

☆VB抓图

☆谈vb目录文件操作的三种方法－2

☆谈vb目录文件操作的三种方法－1

☆vb使用open方法读写文件

☆VB的MD5加密模块

☆VB 超简单的屏幕截图代码

☆vb以类名或窗口标题查找句柄并关闭

☆VB将配置保存到EXE本身（生成EXE木马程序）

☆VB 调用腾讯截图控件CameraDLL.dll

☆在VB6.0中怎么实现escape和unescape

☆vb求任意两线交点

☆VB中调用Windows API的注意事项[VB知识库]

☆VB 一个获得自己外网IP 地址的程序代码

☆VB程序中实现IP地址子网掩码网关DNS的更改[转]

☆在VB 中应用FSO 对象模型介绍（摘自网络）

☆[转] Vb中FSO 对象的介绍

☆VB 画坐标轴

☆VB 二进制文件的操作

☆[VB]BMP转JPG

☆VB中KeyCode常数用法

☆vb实时曲线的绘制和保存

更多精彩>>>