Private Function GetControlTag(ByVal Container As Control, _
        ByVal ControlToFind As String) As Object
      For Each ctrl As Control In Container.Controls
            If ctrl.Name = ControlToFind Then Return ctrl.Tag
            If ctrl.HasChildren Then
                Dim tagobj As Object = GetControlTag(ctrl, ControlToFind)
                If tagobj IsNot Nothing Then Return tagobj
            End If
      Next ctrl
      Return Nothing
  End Function