vb.net 为PrintPreviewDialog控件添加新按钮

1、先定义一个类，名称：MyPrint_dlg

  '-----------------------------------------

  Public Class MyPrint_dlg

      Public MyPreviewdlg As New PrintPreviewDialog '声明对象变量

       Private toolStrip1 As New ToolStrip   ' PrintPreviewDialog 中Controls集合中ToolStrip控件

      Private WithEvents NButton As New ToolStripButton  ' PrintPreviewDialog 中Controls集合中ToolStrip控件的按钮对象

      Event NButton_Click()  '新按钮的事件

             '创建新按钮的过程

             '----------------------------------

              Public Sub CreatButton()
              Dim c As Control
                  For Each c In MyPreviewdlg.Controls
                      If TypeName(c) = "ToolStrip" Then toolStrip1 = c
                      NButton.Text = "页面设置"
                  Next
              toolStrip1.Items.Add(NButton)
              End Sub