Dim changed As Boolean = False
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is TextBox Then
                If Not CType(ctrl, TextBox).Text.Equals(CStr("" & ctrl.Tag), StringComparison.InvariantCultureIgnoreCase) Then
                    changed = True
                    Exit For
                End If
            ElseIf TypeOf ctrl Is TextBox Then
                If Not CType(ctrl, CheckBox).Checked.Equals(CBool(ctrl.Tag)) Then
                    changed = True
                    Exit For
                End If
            End If
        Next