Private Function SearchControl(ByVal pName As String, ByVal pCon As _
      System.Windows.forms.Control) As Control
        For Each con As Control In Me.Controls
            Select Case True
                Case TypeOf (pCon) Is Button AndAlso _
                        TypeOf (con) Is Button AndAlso _
                        con.Name = Name
                    Return CType(con, Button)
                Case TypeOf (pCon) Is Label AndAlso _
                        TypeOf (con) Is Label AndAlso _
                        con.Name = Name
                    Return CType(con, Label)
            End Select
        Next con
    End Function
 
        Dim btn As Button = CType(SearchControl("Button1", New Button), Button)
        Dim lbl As Label = CType(SearchControl("Label1", New Label), Label)