在vb.net中显示加载屏幕

Public Class LoadingScreen
    Private Sub LoadingScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 设置进度条的最大值
        ProgressBar1.Maximum = 100
        ' 启动计时器
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' 模拟加载过程
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value += 10
            Label1.Text = "Loading... " & ProgressBar1.Value.ToString() & "%"
        Else
            ' 加载完成，关闭加载屏幕
            Timer1.Stop()
            Me.Close()
        End If
    End Sub
End Class

Public Class MainForm
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 显示加载屏幕
        Dim loadingScreen As New LoadingScreen()
        loadingScreen.ShowDialog()
    End Sub
End Class