如题.
请指教,谢谢!

解决方案 »

  1.   

    Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
          Select Case ButtonMenu.Key
            Case "首页"
               
            Case "上一页"
                      Case "下一页"
              
            Case "尾页"
            
            Case "跳到"
         
        End Select
    end sub
      

  2.   

    楼上的通过!!
    thanks!!!
    立马给分!