<UserControl x:Class="UserControl1"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:my="clr-namespace:vMixTitleLibrary;assembly=vMixTitleLibrary"
             mc:Ignorable="d" 
             d:DesignHeight="300" d:DesignWidth="300" Width="720" Height="480">
    <UserControl.Resources>
        <Storyboard x:Key="sb_empty">
        	<DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.Y)" Storyboard.TargetName="bg_descuento">
        		<SplineDoubleKeyFrame KeyTime="0:0:0.01" Value="0"/>
        	</DoubleAnimationUsingKeyFrames>
        </Storyboard>
        <Storyboard x:Key="storyboard_leave">
        	<DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.Y)" Storyboard.TargetName="bg_descuento">
        		<SplineDoubleKeyFrame KeyTime="0" Value="42"/>
        		<SplineDoubleKeyFrame KeyTime="0:0:1" Value="0"/>
        	</DoubleAnimationUsingKeyFrames>
        </Storyboard>
        <Storyboard x:Key="storyboard_enter">
        	<DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.Y)" Storyboard.TargetName="bg_descuento">
        		<SplineDoubleKeyFrame KeyTime="0" Value="0"/>
        		<SplineDoubleKeyFrame KeyTime="0:0:1" Value="42"/>
        	</DoubleAnimationUsingKeyFrames>
        </Storyboard>
    </UserControl.Resources>
	<UserControl.Triggers>
		<EventTrigger RoutedEvent="FrameworkElement.Loaded">
			<BeginStoryboard x:Name="storyboard_leave_BeginStoryboard" Storyboard="{StaticResource sb_empty}"/>
		</EventTrigger>
	</UserControl.Triggers>
    <Grid Margin="0,0,84,96" Width="720" Height="480">
    	<Rectangle x:Name="bg_descuento" Fill="Red" HorizontalAlignment="Left" Height="36.5" Margin="435.5,33.5,0,0" Stroke="Black" VerticalAlignment="Top" Width="123" StrokeThickness="0" RenderTransformOrigin="0.5,0.5">
    		<Rectangle.RenderTransform>
    			<TransformGroup>
    				<ScaleTransform/>
    				<SkewTransform/>
    				<RotateTransform/>
    				<TranslateTransform/>
    			</TransformGroup>
    		</Rectangle.RenderTransform>
    	</Rectangle>

    	<Rectangle x:Name="header" Fill="#FFF4F4F5" HorizontalAlignment="Left" Height="42" Margin="46.5,28,0,0" Stroke="Black" VerticalAlignment="Top" Width="512" RenderTransformOrigin="0.5,0.5" StrokeThickness="0">
    		<Rectangle.RenderTransform>
    			<TransformGroup>
    				<ScaleTransform/>
    				<SkewTransform/>
    				<RotateTransform/>
    				<TranslateTransform/>
    			</TransformGroup>
    		</Rectangle.RenderTransform>
    	</Rectangle>
    	<TextBlock x:Name="_hidden_value" Text="" Margin="0,184,215,77" Background="Red" RenderTransformOrigin="0.5,0.5" Visibility="hidden" >
    		<TextBlock.RenderTransform>
    			<TransformGroup>
    				<ScaleTransform/> 
    				<SkewTransform/>
    				<RotateTransform/>
    				<TranslateTransform/>
    			</TransformGroup>
    		</TextBlock.RenderTransform></TextBlock>
    </Grid>
</UserControl>

Imports System
Imports System.IO
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Media
Imports System.Windows.Media.Animation

Public Class UserControl1 
	Public Sub handler_vmix(ByVal sender As Object, ByVal e As EventArgs) Handles Me.LayoutUpdated
		Dim my_storyboard As Storyboard
		
		if _hidden_value.Text = "cat" then
			my_storyboard = DirectCast(FindResource("storyboard_enter"), Storyboard)
		else
			my_storyboard = DirectCast(FindResource("storyboard_leave"), Storyboard)
		end if
	
		my_storyboard.Begin()
	end sub
End Class