WPF VB.Net

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="Animating Combine Transforms" Height="320" Width="300">
  
    
      
      
      
      
      
      
        
          
            
            
            
          

        

      
      
        
          
            
              
                                  Storyboard.TargetProperty="RenderTransform.Children[0].ScaleX"
                  To="1.5" Duration="0:0:1" RepeatBehavior="1x" />
                                  Storyboard.TargetProperty="RenderTransform.Children[0].ScaleY"
                  To="1.5" Duration="0:0:1" RepeatBehavior="1x" />
                                  Storyboard.TargetProperty="RenderTransform.Children[1].AngleX"
                  To="30" Duration="0:0:1" RepeatBehavior="1x" />
              

            
          

        
        
          
            
              
                                  Storyboard.TargetProperty="RenderTransform.Children[0].ScaleX"
                  Duration="0:0:0.5" />
                                  Storyboard.TargetProperty="RenderTransform.Children[0].ScaleY"
                  Duration="0:0:0.5" />
                                  Storyboard.TargetProperty="RenderTransform.Children[1].AngleX"
                  Duration="0:0:0.5" />
              

            

          

        
      

    
  

  
    Button1
    Button2
    Close
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Shapes
Namespace WpfApplication1
  Public Partial Class CombineTransformAnimation
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub btn1_Click(sender As Object, e As RoutedEventArgs)
      tb1.Text = "You are clicking on " + btn1.Content
    End Sub
    Private Sub btn2_Click(sender As Object, e As RoutedEventArgs)
      tb1.Text = "You are clicking on " + btn2.Content
    End Sub
    Private Sub btnClose_Click(sender As Object, e As RoutedEventArgs)
      Me.Close()
    End Sub
  End Class
End Namespace