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