Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged
'Run function here
End Sub
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler RadioButton1.Click, AddressOf rb_Click
AddHandler RadioButton2.Click, AddressOf rb_Click
AddHandler RadioButton3.Click, AddressOf rb_Click
AddHandler RadioButton4.Click, AddressOf rb_Click
AddHandler RadioButton5.Click, AddressOf rb_Click
End Sub
Private Sub rb_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim rb As RadioButton = DirectCast(sender, RadioButton)
Label1.Text = rb.Text
End Sub
End Class
It's something like..
Code:For each ctrl in Me if typeof ctrl is checkbox then addhandler ctrl.checked, addressof myfunction end if next
Same answer by using handlers given by me.
But seems like no one is visiting this topic anymore