Public Function ControlTheElemnts(ByRef ctl As Control, _
                                   ByVal panelName As Form, _
                                   ByRef changeType As Type, _
                                   ByVal sText As String) As Boolean
 
        For Each ctl As Control In panelName.Controls()
            If TypeOf (ctl) Is changeType Then
                CType(ctl, changeType).Text = sText
            End If
        Next
 
    End Function