Public Function SetTextToTextBox(ByVal ctlname As String, _
     ctltext As String) As Boolean
 
   Dim ok As Boolean = False
   For i As Integer = 0 To Me.Controls.Count - 1
      If TypeOf Controls(i) Is TextBox Then
         If CType(Controls(i), TextBox).Name = ctlname Then _
           Controls(i).Text = ctltext : ok = True
      ElseIf TypeOf Controls(i) Is GroupBox Or TypeOf Controls(i) Is Panel Then
         For Each ctl As Control In Controls(i).Controls
            If TypeOf ctl Is TextBox Then
               If CType(ctl, TextBox).Name = ctlname Then _
                  ctl.Text = ctltext : ok = True
            End If
         Next ctl
      End If
   Next i
   Return ok
End Function