>Private Sub FilterSetter_SearchNames(ByVal sender As System.Object, _ > ByVal e As System.EventArgs) Handles FilterSetter1.SearchNames, _ > FilterSetter2.SearchNames, _ > FilterSetter3.SearchNames, _ > FilterSetter4.SearchNames, _ > FilterSetter5.SearchNames > MsgBox("Got a message from " & sender.ToString()) >End Sub >