WPF

<TextBlock>
<TextBlock.Text>
<Binding ...>
<Binding.ValidationRules>
<localValidation:ValidateIt V1={Binding Path=...} V2={Binding Path=}/>
</Binding.ValidationRules/>
<TextBlock.Text/>
</TextBlock>

public class ValidateIt : ValidationRule
public int V1 {get;set;}
public int V2 {get;set;}

<Window x:Class="Window1"
   
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation";
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml";
    Title="Window1" Height="300" Width="300">
    <Grid Name="Grid1">
        <Button Height="25" Width="50"
HorizontalAlignment="Right" VerticalAlignment="Bottom"
Name="Button1">Go</Button>
    </Grid>
</Window>



Imports System.Windows.Media.Animation

Class Window1

    Private LL As New Windows.Controls.Label

    Private Sub Window1_Loaded(ByVal sender As Object, ByVal
e As System.Windows.RoutedEventArgs) Handles Me.Loaded

        LL.Content = "dgkdjsjfklògjsòldfg"
        LL.Name = "Label1"
        LL.HorizontalAlignment Windows.HorizontalAlignment.Left
        LL.VerticalAlignment Windows.VerticalAlignment.Top
        LL.Foreground = Brushes.Black
        LL.Visibility = Windows.Visibility.Visible

        Me.Grid1.Children.Add(LL)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.Windows.RoutedEventArgs) Handles
Button1.Click

        Dim sb As New Storyboard

        Dim myDoubleAnimation As New DoubleAnimation
        myDoubleAnimation.From = 0
        myDoubleAnimation.To = 100
        myDoubleAnimation.Duration TimeSpan.FromMilliseconds(2000)

        Storyboard.SetTargetName(myDoubleAnimation,
"Label1")
        Dim PropP As New PropertyPath(Canvas.LeftProperty)
        Storyboard.SetTargetProperty(myDoubleAnimation,
PropP)

        Dim myDoubleAnimation2 As New DoubleAnimation
        myDoubleAnimation2.From = 0
        myDoubleAnimation2.To = 100
        myDoubleAnimation2.Duration TimeSpan.FromMilliseconds(2000)

        Storyboard.SetTargetName(myDoubleAnimation2,
"Label1")
        Dim PropP2 As New PropertyPath(Canvas.TopProperty)
        Storyboard.SetTargetProperty(myDoubleAnimation2,
PropP2)

        sb.Children.Add(myDoubleAnimation)
        sb.Children.Add(myDoubleAnimation2)

        Me.BeginStoryboard(sb)

    End Sub

End Class

<CustomControl.Culture>
    <Culture Culture="Deutsch (Deutschland)">
        <Culture.Calendar>
            <my:GregorianCalendar />
        <Culture.Calendar>
    </Culture>
</CustomControl.Culture>

<CustomControl.Culture>
    <Culture Culture="Deutsch (Deutschland)" Calendar="Gregorian Localized">
    </Culture>
</CustomControl.Culture>

Imports System
Imports System.IO
Imports System.Net
Imports System.Windows
Imports System.Threading
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Navigation

Class Window1

    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)

        'Call RunStoryBoard("GrowDrop1")
        Call RunStoryBoard1()

        'Thread.Sleep(800)
        Call Delay(8000)

        'Call RunStoryBoard("GrowDrop2")
        Call RunStoryBoard2()

    End Sub

    Private Sub RunStoryBoard(ByVal sbName As String)
        Dim myStoryBoard As Storyboard = DirectCast(FindResource(sbName), Storyboard)

        myStoryBoard.Begin(Me)

    End Sub

    Private Sub RunStoryBoard1()
        Dim myStoryBoard1 As Storyboard = DirectCast(FindResource("GrowDrop1"), Storyboard)

        myStoryBoard1.Begin(Me)

    End Sub

    Private Sub RunStoryBoard2()
        Dim myStoryBoard2 As Storyboard = DirectCast(FindResource("GrowDrop2"), Storyboard)

        myStoryBoard2.Begin(Me)

    End Sub

    Public Sub Delay(ByVal Milliseconds As UShort)
        Dim DelayTime As TimeSpan
        Dim NewTime As DateTime = DateTime.Now.AddSeconds(Milliseconds / 1000)
        Do
            DelayTime = NewTime.Subtract(DateTime.Now)

        Loop While DelayTime.Seconds > 0
    End Sub
End Class

Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
 
Namespace UserControlInheritance
    Public Class TestBaseCtrl
        Inherits UserControl
        
    End Class
End Namespace

<local:TestBaseCtrl x:Class="UserControlInheritance.InheritedUserControl"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:local="clr-namespace:UserControlInheritance"
    Height="300" Width="300">
    <Grid>
        
    </Grid>
</local:TestBaseCtrl>

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
 
Namespace UserControlInheritance
    ''' <summary>
    ''' Interaction logic for InheritedUserControl.xaml
    ''' </summary>
    Partial Public Class InheritedUserControl
        Inherits TestBaseCtrl
 
        Public Sub New()
            InitializeComponent()
        End Sub
 
        
    End Class
End Namespace