XPスタイルを有効にするにはマニフェストファイルを編集する必要があるので、これを開きます。

ソリューションエクスプローラーで、ファイルをすべて表示するボタンを押してから、MyProjectのapp.manifestを開きます。

   <dependency>
    <dependentAssembly>
      <assemblyIdentity
          type="win32"
          name="Microsoft.Windows.Common-Controls"
          version="6.0.0.0"
          processorArchitecture="*"
          publicKeyToken="6595b64144ccf1df"
          language="*"
        />
    </dependentAssembly>
  </dependency>

        Dim da = New System.Windows.Media.Animation.DoubleAnimation
        da.From = 0.0
        da.To = 1.0
        da.Duration = New TimeSpan(0, 0, 0, 0, 300)
        Me.BeginAnimation(Window.OpacityProperty, da)

サンプル

XAML

<Window x:Class="WPFFrameAnimation.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow" Height="350" Width="525" Loaded="Window_Loaded">
    <Grid Name="gridMain">
        <Image HorizontalAlignment="Left" Name="Image1" Stretch="Uniform" VerticalAlignment="Top" Source="/WPFFrameAnimation;component/kosaka_logo.jpg" Margin="106,80,0,0" Width="100" Height="100" />
    </Grid>
</Window>

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;
 
namespace WPFFrameAnimation
{
    /// <summary>
    /// MainWindow.xaml の相互作用ロジック
    /// </summary>
    public partial class MainWindow : Window
    {
        private System.Diagnostics.Stopwatch Sw = new System.Diagnostics.Stopwatch();
 
        public MainWindow()
        {
            InitializeComponent();
        }
 
        private void Window_Loaded(object sender, RoutedEventArgs e)
        {
            this.Sw.Start();
            //イベント登録
            CompositionTarget.Rendering += new EventHandler(CompositionTarget_Rendering);
        }
 
        void CompositionTarget_Rendering(object sender, EventArgs e)
        {
            //---------------------
            //回転
            //---------------------
            //原点
            //Gridの描画サイズから中心点の計算
            int GenX = (int)gridMain.RenderSize.Width / 2;
            int GenY = (int)gridMain.RenderSize.Height / 2;
 
            //最初の位置
            double P_X = 0;
            double P_Y = 100;//回転半径になる
            //最終的な座標を入れる変数
            double X, Y;
 
            //回転角度
            //1秒で1回転
            double Rot = (Sw.Elapsed.TotalMilliseconds / 1000.0 * 360.0) * Math.PI / 180.0;
 
            //回転
            X = (P_X * Math.Cos(Rot)) - (P_Y * Math.Sin(Rot));
            Y = P_X * Math.Sin(Rot) + P_Y * Math.Cos(Rot);
 
 
            //原点分をプラスする
            X = X + GenX;
            Y = Y + GenY;
 
 
            //座標を指定
            //画像のサイズ分位置を減らす
            Thickness tk = new Thickness(X - Image1.RenderSize.Width / 2.0, Y - Image1.RenderSize.Height / 2.0, 0, 0);
 
            Image1.Margin = tk;
        }
    }
}

VB.NET

Namespace WPFFrameAnimation
 
 
    Class MainWindow
        Private Sw As New Stopwatch
 
        Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
            Me.Sw.Start()
            'イベント登録
            AddHandler CompositionTarget.Rendering, AddressOf CompositionTarget_Rendering
        End Sub
 
 
        Public Sub CompositionTarget_Rendering(ByVal sender As Object, ByVal e As EventArgs)
            '---------------------
            '回転
            '---------------------
            '原点
            'Gridの描画サイズから中心点の計算
            Dim GenX As Integer = gridMain.RenderSize.Width / 2
            Dim GenY As Integer = gridMain.RenderSize.Height / 2
 
            '最初の位置
            Dim P_X As Double = 0
            Dim P_Y As Double = 100 '回転半径になる
 
            '最終的な座標を入れる変数
            Dim X As Double
            Dim Y As Double
 
            '回転角度
            '1秒で1回転
            Dim Rot As Double = (Sw.Elapsed.TotalMilliseconds / 1000.0 * 360.0) * Math.PI / 180.0
 
            '回転
            X = (P_X * Math.Cos(Rot)) - (P_Y * Math.Sin(Rot))
            Y = P_X * Math.Sin(Rot) + P_Y * Math.Cos(Rot)
 
            '原点分をプラスする
            X = X + GenX
            Y = Y + GenY
 
            '座標を指定
            '画像のサイズ分位置を減らす
            Dim tk As New Thickness(X - Image1.RenderSize.Width / 2.0, Y - Image1.RenderSize.Height / 2.0, 0, 0)
            Image1.Margin = tk
        End Sub
    End Class
End Namespace

解説