How do I design a avast loading animation?

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 50
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
A:
        Progressbar1.Righttoleftlayout = false
        If ProgressBar1.Value <= 99 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            GoTo B
        End If
B:
        Progressbar1.Righttoleftlayout = True
        If ProgressBar1.Value > 0 Then
            ProgressBar1.Value = ProgressBar1.Value - 1
        Else
            GoTo A
        End If
    End Sub