Private Sub PrintClick(sender As Object, e As EventArgs) PrintPreviewDialog1.Tag += 1 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim tool = PrintPreviewDialog1.Controls.OfType(Of ToolStrip)().First() Dim item = tool.Items.OfType(Of ToolStripButton)().Where(Function(t) t.Text Like "印刷*").First() AddHandler item.Click, AddressOf PrintClick PrintPreviewDialog1.Tag = 0 Me.PrintPreviewDialog1.ShowDialog() RemoveHandler item.Click, AddressOf PrintClick MsgBox(String.Format("印刷ボタンが押された回数={0}", PrintPreviewDialog1.Tag), MsgBoxStyle.Information) End Sub