Add New Button in Epicor Action menu using VB.net

Private sub AddTools()
Dim custButton As New Infragistics.Win.UltraWinToolbars.ButtonTool("TestTool")
Dim pop As Infragistics.Win.UltraWinToolbars.PopupMenuTool = Nothing
custButton.SharedProps.Caption = "Print Receipt"
If baseToolbarsManager.Tools.Exists("TestTool") = False Then
      baseToolbarsManager.Tools.Add(custButton)
      baseToolbarsManager.Toolbars("Standard Tools").Tools.Add(custButton)
      baseToolbarsManager.Tools("ActionsMenu").SharedProps.Enabled = True
      pop = DirectCast(baseToolbarsManager.Tools("ActionsMenu"),                          

      Infragistics.Win.UltraWinToolbars.PopupMenuTool)

      pop.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {custButton})
      Dim intFuncImage As System.Drawing.Image = EpiUIImages.GetImage("InternalFunction")
      Dim app As New Infragistics.Win.Appearance()
      app.Image = intFuncImage            
      baseToolbarsManager.Tools("TestTool").SharedProps.AppearancesLarge.Appearance = app
      baseToolbarsManager.Tools("TestTool").SharedProps.AppearancesSmall.Appearance = app
End If

End sub

Private Sub QuoteForm_Load(ByVal sender As Object, ByVal args As EventArgs)
      AddTools()
End Sub

Private Sub baseToolbarsManager_ToolClick(ByVal sender As Object, ByVal args As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs)
If args.Tool.Key.tostring() = "TestTool" then
     Dim QView As EpiDataView = CType(oTrans.EpiDataViews("QuoteHed"), EpiDataView)
     Dim QuoteStr As Int32 = QView.dataView(QView.Row)("QuoteNum")
     Process.Start("Crystal.exe",QuoteStr )
End if
End Sub