Form3.vb

 Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = FormBorderStyle.None
        Me.Height = 175
        Me.Width = 350
        Dim p As New Drawing2D.GraphicsPath
        p.StartFigure()
        p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
        p.AddLine(40, 0, Me.Width - 40, 0)
        p.AddArc(New Rectangle(Me.Width - 40, 0, 40, 40), -90, 90)
        p.AddLine(Me.Width, 40, Me.Width, Me.Height - 40)
        p.AddArc(New Rectangle(Me.Width - 40, Me.Height - 40, 40, 40), 0, 90)
        p.AddLine(Me.Width - 40, Me.Height, 40, Me.Height)
        p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
        p.CloseFigure()
        Me.Region = New Region(p)
        'Me.BackColor = Color.Red
    End Sub

    Private Sub CircularProgress1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CircularProgress1.ValueChanged
        CircularProgress1.IsRunning = True
        ' BGWorker Do Work Event
        For i As Integer = 1 To 2
            ' Run code 1
        Next

        For i As Integer = 2 To 3
            ' Run code 2
        Next


        For i As Integer = 3 To 4
            ' Run code 3
        Next

        For i As Integer = 4 To 5
            ' Run code 4
        Next

        For i As Integer = 5 To 6
            ' Run code 5
        Next

        For i As Integer = 6 To 8
            ' Run code 6
        Next

        For i As Integer = 8 To 9
            ' Run code 7
        Next

        ' BGWorker Progress changed event


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        CircularProgress1.Value += 2

        Label1.Text = "Loading..........."
        If CircularProgress1.Value = 100 Then

            Timer1.Enabled = False
            CircularProgress1.IsRunning = False
            Me.Hide()

            Form1.Show()
        End If
    End Sub
End Class

Project Homepage: