我也不太明白你的意思
是不是说要做和开始菜单风格(有一个竖着的pic,代图标)一样的?
无法给你例程,代码太多了
而且为达到这样的目的,经常出现错误的
建议你使用第三方的控件,比如ActiveBar2 IconMenu等

解决方案 »

  1.   

    如果是需要弹出菜单则:Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
        ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Const KEYEVENTF_KEYUP = &H2' Press the Ctrl-Esc key
    keybd_event vbKeyControl, 0, 0, 0
    keybd_event vbKeyEscape, 0, 0, 0
    DoEvents' Release the two keys
    keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
    keybd_event vbKeyEscape, 0, KEYEVENTF_KEYUP, 0
    DoEvents