求助，关于水晶报表中导出按纽的事件编程(vb.net)

vs2005自带的水晶报表中，使用CrystalReportViewer控件显示报表，该控件上有一个自带的导出按纽,我想对该按纽事件进行编程，使其在导出的基础之上加上一些处理，请问如何实现？
我目前的思路如下：
'先定义一个事件：
Private Sub myEvent000(ByVal sender As System.Object, ByVal e As System.EventArgs)
'想加的处理过程
MsgBox("Hi")
End Sub

'然后在写一个替换掉原导出按纽的过程，用自定义的新按纽替换掉
 Private Sub daochu() '尝试自定义导出按钮
        For Each c As Control In crvMain.Controls

            Dim cname As String
            cname = c.GetType.Name.ToString.ToLower
            If cname = "ToolStrip" Then
                Dim tab1 As ToolStrip
                tab1 = c
                Dim i, num As Integer
                i = 0
                num = tab1.Items.Count
                Do While (i < num)
                    If tab1.Items(i).ToolTipText = "导出报表" Then
                        Dim tbutton As New ToolStripButton
                        Dim img1 As Image
                        img1 = tab1.Items(i).Image
                        tab1.Items.Remove(tab1.Items(i))
                        tbutton.Image = img1
                        tbutton.ToolTipText = "自定义导出按纽"
                        tab1.Items.Insert(0, tbutton)
                        
                        '写到这里就写不下去了，如何把我自定义的按纽tbutton的原事件及给加进去？并把我定义的新事件myEvent000给加进去？

                    End If
                    i = i + 1
                Loop

            End If

        Next
    End Sub

各位有没有更好的方法，或完善我的方法，请指点！ 水晶报表 导出按纽事件 --------------------编程问答-------------------- 自顶！有没有人看啊！

补充：.NET技术 ,  VB.NET