How to use the Sage 200 Progress form VB.net

Private Function ValidateTransactions() As Boolean

        Dim oProgressForm = New Sage.Accounting.Common.Forms.ProgressForm

        Try

            '

            Sage.Accounting.Application.ProgressIndicator = oProgressForm

            With oProgressForm

                .CancelButtonVisible = False

                .Title = "Validate EPOS Import"

                .Visible = True

                .Maximum = 100

                .Current = 0

            End With

            ' Loop Code here 

            While 1 = 1

                oProgressForm.Description = "Validating " + "Transaction "

                oProgressForm.Current += 1

            End While

        Catch ex As Exception

        Finally

            oProgressForm.Visible = False

            Sage.Accounting.Application.ProgressIndicator = Nothing

            oProgressForm.Dispose()

            oProgressForm = Nothing

        End Try

    End Function