Animate Window Control

[.NetNinja]

Here is a control I wrote for animating windows.

USAGE:
Add a reference to the control and do the following:

    Dim WindowAnimater As New NetAnimateWindow.WindowAnimator

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WindowAnimater.AnimationDirection = NetAnimateWindow.WindowAnimator.AnimateDirection.Horizontal_Negative
        WindowAnimater.AnimationStyle = NetAnimateWindow.WindowAnimator.AnimateStyles.Blend

        WindowAnimater.WindowHandle = Me.Handle
        WindowAnimater.AnimateWindow()
    End Sub