Как анимировать нажатие кнопки?

Module ButtonStyles
 
'Использование:  SetButtonStyles(Me, My.Resources.LINKV1A, My.Resources.LINKV1B, My.Resources.LINKV1C, ImageLayout.Zoom)
'Эта штука в Runtime изменияет все кнопки формы в трех положениях на необходимые картинки (скины)
 
 
    Private _Original As Image = Nothing
    Private _Enter As Image = Nothing
    Private _Down As Image = Nothing
 
    Public Sub SetButtonStyles(ByVal Form As Form, ByVal ImageORIGINAL As Image, ByVal ImageENTER As Image, ByVal ImageDOWM As Image, ByVal ImageLayout As ImageLayout)
        _Original = ImageORIGINAL
        _Enter = ImageENTER
        _Down = ImageDOWM
        If _Original IsNot Nothing Then
            For Each ctrl As Button In Form.Controls.OfType(Of Button)()
                AddHandler ctrl.MouseEnter, AddressOf MEnter
                AddHandler ctrl.MouseDown, AddressOf MDown
                AddHandler ctrl.MouseUp, AddressOf MUp
                AddHandler ctrl.MouseLeave, AddressOf MLeave
                ctrl.BackColor = Color.Transparent
                ctrl.FlatStyle = FlatStyle.Flat
                ctrl.FlatAppearance.BorderSize = 0
                ctrl.FlatAppearance.MouseDownBackColor = Color.Transparent
                ctrl.FlatAppearance.MouseOverBackColor = Color.Transparent
                ctrl.BackgroundImageLayout = ImageLayout
                ctrl.BackgroundImage = _Original
            Next
        End If
    End Sub
 
    Private Sub MEnter(ByVal sender As Object, ByVal e As System.EventArgs)
        sender.BackgroundImage = _Enter
    End Sub
    Private Sub MDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            sender.BackgroundImage = _Down
        End If
    End Sub
    Private Sub MUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        sender.BackgroundImage = _Enter
    End Sub
    Private Sub MLeave(ByVal sender As Object, ByVal e As System.EventArgs)
        sender.BackgroundImage = _Original
    End Sub
End Module

Public Class Form1
 
#Region "    Скин кнопки 1"
    Private Sub Button1_MouseLeave(sender As Object, e As System.EventArgs) Handles Button1.MouseLeave, MyBase.Load
        Button1.BackgroundImage = GetButtonSkin(Image.FromFile("1.png"), 1, True)
    End Sub
    Private Sub Button1_MouseEnter(sender As Object, e As System.EventArgs) Handles Button1.MouseEnter, Button1.MouseUp
        sender.backgroundimage = GetButtonSkin(Image.FromFile("1.png"), 1)
    End Sub
    Private Sub Button1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        sender.backgroundimage = GetButtonSkin(Image.FromFile("1.png"), 3)
    End Sub
#End Region
 
    Public Function GetButtonSkin(SourceImage As Image, Optional Return_Skin As Integer = Nothing, Optional ToGray As Boolean = False) As Image
        Dim NewButtonImage As New Bitmap(CInt(SourceImage.Width / 3), SourceImage.Height)
        Dim myGraphics As Graphics = Graphics.FromImage(NewButtonImage)
        Dim ButtonSize As New Rectangle(0, 0, SourceImage.Width / 3, SourceImage.Height)
        Dim getState As Rectangle
 
        If Return_Skin = 1 Then ' Normal State
            getState = New Rectangle(0, 0, SourceImage.Width / 3, SourceImage.Height)
        ElseIf Return_Skin = 2 Then ' Hover State
            getState = New Rectangle(SourceImage.Width / 3, 0, SourceImage.Width / 3, SourceImage.Height)
        ElseIf Return_Skin = 3 Then ' Dowm State
            getState = New Rectangle(SourceImage.Width / 3 * 2, 0, SourceImage.Width / 3, SourceImage.Height)
        Else ' If not Indicated - return Normal State
            getState = New Rectangle(0, 0, SourceImage.Width / 3, SourceImage.Height)
        End If
 
        myGraphics.DrawImage(SourceImage, ButtonSize, getState, GraphicsUnit.Pixel)
 
        Dim PixelColor As Color : Dim PaintToGray As Byte
        If ToGray Then
            For x As Integer = 0 To NewButtonImage.Width - 1
                For y As Integer = 0 To NewButtonImage.Height - 1
                    PixelColor = NewButtonImage.GetPixel(x, y)
                    'Если пиксель непрозрачный, то перекрашиваем его в серый цвет
                    If PixelColor <> Color.FromArgb(0) Then
                        PaintToGray = 0.3 * PixelColor.R + 0.59 * PixelColor.G + 0.11 * PixelColor.B
                        PixelColor = Color.FromArgb(PaintToGray, PaintToGray, PaintToGray)
                        NewButtonImage.SetPixel(x, y, PixelColor)
                    End If
                Next
            Next
        End If
 
        Return NewButtonImage
    End Function
End Class