плавный переход одного изображения в другое

Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
 
 
Public Class Form1
    'Уровень прозрачности
    Private transparent As Single = 0.1F
    'Шаг изменения прозрачности
    Private trStep As Single = 0.1F
    'Массив матрицы цветов
    Private apts(,) As Single = {{1.0F, 0.0F, 0.0F, 0.0F, 0.0F}, _
                                 {0.0F, 1.0F, 0.0F, 0.0F, 0.0F}, _
                                 {0.0F, 0.0F, 1.0F, 0.0F, 0.0F}, _
                                 {0.0F, 0.0F, 0.0F, transparent, 0.0F}, _
                                 {0.0F, 0.0F, 0.0F, 0.0F, 1.0F}}
    Private backImg As Image
    Private frontImg As Image
 
    Private cm As New ColorMatrix
    Private ia As New ImageAttributes
    Private r As New Rectangle
    Private rnd As New Random
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        DrawFX(e, transparent)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Для уменьшения мерцания формы
        MyClass.SetStyle(ControlStyles.UserPaint, True)
        MyClass.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        MyClass.SetStyle(ControlStyles.DoubleBuffer, True)
 
        backImg = ImageList1.Images.Item(0)
        frontImg = ImageList1.Images.Item(1)
        r = New Rectangle(0, 0, MyClass.ClientSize.Width, _
        ClientSize.Height)
 
        Dim i, j As Integer
        For i = 0 To 4
            For j = 0 To 4
                cm.Item(i, j) = apts(i, j)
            Next
        Next
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If transparent < 0 Or transparent > 1 Then
            trStep *= -1
            cm.Matrix01 = Convert.ToSingle(rnd.NextDouble)
            cm.Matrix12 = Convert.ToSingle(rnd.NextDouble)
            cm.Matrix23 = Convert.ToSingle(rnd.NextDouble)
        End If
        transparent += trStep
        cm.Matrix33 = transparent
        Refresh()
    End Sub
 
    Private Sub DrawFX(ByVal e As PaintEventArgs, ByVal trsp As Single)
        Dim g As Graphics = e.Graphics
        g.DrawImage(backImg, r)
        ia.SetColorMatrix(cm)
        g.DrawImage(frontImg, r, 0, 0, _
                    frontImg.Width, frontImg.Height, _
                    GraphicsUnit.Pixel, ia)
    End Sub
End Class

Declare Function AlphaBlending Lib "msimg32.dll" Alias "AlphaBlend" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal nHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal BF As Long) As Long
 
Declare Function DrawTransparent Lib "msimg32.dll" Alias "TransparentBlt" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal nHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Long