Sub Handle Multiple Event

กรณีที่เราสร้างปุ่มไว้หลายๆอัน แล้วแต่ละปุ่มมี Event ที่เหมือนๆกัน เราสามารถเขียนอยู่ใน Sub เดียวกันได้

Private Sub AllButton_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
    Dim x As Button 'สร้างตัวแปรที่เป็น Button
    x = CType(sender, Button) 'รับค่า Sender มาแล้วทำการแปลงให้เป็น Button
    Label1.Text = x.Text 'แสดงข้อความบนปุ่มที่ label1
End Sub