Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    SampleProcedure1()          'SampleProcedure1 を呼ぶのは、Button1 が押された時だけ 

    SampleProcedure2(sender)    'SampleProcedure2 は、Button1 / Button2 の両方で呼ぶ 

End Sub



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    '' SampleProcedure1()       'Button2 の時は SampleProcedure1 を呼ばない 

    SampleProcedure2(sender)    'Button1 / Button2 どちらでも SampleProcedure2 を呼ぶ 

End Sub



Private Sub SampleProcedure1()

    MsgBox("Proc1")

End Sub



Private Sub SampleProcedure2(btn As Object)

    If btn Is Button2 Then

        '引数を使って、処理を行うかどうかを判断する 

        MsgBox("Button2 から呼ばれた Proc2")

    End If

End Sub