Private Sub StackPanel_BindingValidationError(ByVal sender As Object, _
ByVal e As ValidationErrorEventArgs)
If e.Action = ValidationErrorEventAction.Added Then
MyTextBox.Background = New SolidColorBrush(Colors.Red)
ElseIf e.Action = ValidationErrorEventAction.Removed Then
MyTextBox.Background = New SolidColorBrush(Colors.White)
End If
End Sub