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