Play, Stop, Pause, Resume, Reverse для Gif анимации на кнопке или в других объектах

e.Graphics.DrawImage(aniImage, New Point(0, 0))

e.Graphics.DrawImage(aniImage, New Point(x, y))

Imports System.Drawing.Imaging
Public Class Form3
    Private frameDelay As Integer()
    Private frameCount As Integer
    Private gifName As String
    Private img As Bitmap
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gifName = "teodolit.gif"
        img = New Bitmap(gifName)
    End Sub
    'определяем время задержки, в сотых долях секунды, между двумя кадрами
    Public Function getFramesDelay(ByVal img As Bitmap) As Integer()
        Dim fd As New FrameDimension(img.FrameDimensionsList(0))
        frameCount = img.GetFrameCount(fd)
        Dim frameDelay = New Integer(frameCount - 1) {}
        Dim frameDelayItem As PropertyItem = img.GetPropertyItem(20736)
        If frameDelayItem IsNot Nothing Then
            Dim values As Byte() = frameDelayItem.Value
            For i As Integer = 0 To frameCount - 1
                frameDelay(i) = values(i * 4) + 256 * values(i * 4 + 1) + 256 * 256 * values(i * 4 + 2) + 256 * 256 * 256 * values(i * 4 + 3)
            Next
        Else
            frameDelay = New Integer(frameCount - 1) {}
        End If
        Return frameDelay
    End Function
    'изменяем время задержки, в сотых долях секунды, между двумя кадрами
    Public Sub setFramesDelay(ByRef img As Bitmap, ByVal ms0 As Byte, ByVal ms1 As Byte, ByVal ms2 As Byte, ByVal ms3 As Byte)
        Dim fd As New FrameDimension(img.FrameDimensionsList(0))
        frameCount = img.GetFrameCount(fd)
        Dim frameDelayItem As PropertyItem = img.GetPropertyItem(20736)
        If frameDelayItem IsNot Nothing Then
            Dim values As Byte() = frameDelayItem.Value
            For i As Integer = 0 To frameCount - 1
                values(i * 4) = ms0
                values(i * 4 + 1) = ms1
                values(i * 4 + 2) = ms2
                values(i * 4 + 3) = ms3
            Next
            frameDelayItem.Value = values
            img.SetPropertyItem(frameDelayItem)
        End If
    End Sub
    Private Sub getDelay_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dd() As Integer = getFramesDelay(img)
        Dim str() As String = dd.[Select](Function(x) x.ToString()).ToArray()
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(str)
        PictureBox1.Image = img.Clone
    End Sub
    Private Sub setDelay_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim m0 As Byte = CByte(TextBox1.Text)
        Dim m1 As Byte = CByte(TextBox2.Text)
        Dim m2 As Byte = CByte(TextBox3.Text)
        Dim m3 As Byte = CByte(TextBox4.Text)
        img = New Bitmap(gifName)
        setFramesDelay(img, m0, m1, m2, m3)
        PictureBox1.Image = img.Clone
    End Sub
End Class