等待进程时显示动画Gif的vb.net

Imports System.Windows.Forms

Public Class Form1
    Private WithEvents timer As Timer
    Private gifImage As Image

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 初始化Timer控件
        timer = New Timer()
        timer.Interval = 100 ' 设置刷新间隔为100毫秒

        ' 加载Gif动画
        gifImage = Image.FromFile("loading.gif")

        ' 显示Gif动画
        PictureBox1.Image = gifImage
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

        ' 启动Timer控件
        timer.Start()

        ' 模拟耗时操作
        System.Threading.Thread.Sleep(5000)

        ' 停止Timer控件
        timer.Stop()

        ' 清空PictureBox控件
        PictureBox1.Image = Nothing
    End Sub

    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
        ' 刷新PictureBox控件显示
        PictureBox1.Refresh()
    End Sub
End Class