[VB.NET] Share the source code to create visual effects when converting images

Imports System.Drawing

Public Class TestForm

    Private bmp As New Bitmap(My.Resources.baby_5)

    Private Sub TestForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AnimationControl1.AnimatedFadeImage = Panel1.BackgroundImage
        AnimationControl1.AnimatedImage = bmp
    End Sub

    Private Sub btnSpiarlBoom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpiarlBoom.Click

        AnimationControl1.AnimationType = AnimationTypes.SpiralBoom
        AnimationControl1.Animate(40)

    End Sub

    Private Sub btnSpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpin.Click

        AnimationControl1.AnimationType = AnimationTypes.Spin
        AnimationControl1.Animate(60)

    End Sub

    Private Sub btnPanorama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPanorama.Click

        AnimationControl1.AnimationType = AnimationTypes.Panorama
        AnimationControl1.Animate(50)

    End Sub

    Private Sub btnSlide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSlide.Click
        AnimationControl1.AnimationType = AnimationTypes.BottomRightToTopLeft
        AnimationControl1.Animate(30)

    End Sub

    Private Sub btnshape_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshape.Click

        AnimationControl1.AnimationType = AnimationTypes.Rectangular
        AnimationControl1.Animate(20)

    End Sub

    Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSplit.Click

        AnimationControl1.AnimationType = AnimationTypes.SplitBoom
        AnimationControl1.Animate(70)

    End Sub

    Private Sub btnChess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChess.Click

        AnimationControl1.AnimationType = AnimationTypes.ChessBoard
        AnimationControl1.Animate(50)

    End Sub

    Private Sub btnFade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFade.Click

        AnimationControl1.AnimationType = AnimationTypes.Fade2Images
        AnimationControl1.Animate(30)

    End Sub

End Class