'Sender代表什么

    '我目前的理解是，Sender代表当前实例，而不是发出事件的主体

    '请验证

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

        Console.WriteLine(sender.ToString)

        'return "System.Windows.Forms.Button(, Text) : Button1()"

    End Sub

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

        Console.WriteLine(sender.ToString)

        'return "System.Windows.Forms.Button(, Text) : Button2()"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Button1_Click(sender, e)

        'return "System.Windows.Forms.Button(, Text) :  Button3"是Button3而并非是Button1

    End Sub

    '这样更直观了

    Dim mStr As String = "试试"

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

        If sender Is mStr Then MsgBox(sender.ToString)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Button1_Click(mStr, e)

    End Sub