Sage 200 Linq Data Context VB.Net

Public Class Sage200DataModel
    Property Model As Sage.Data.DataModel
    Private bound As Boolean
    Property DataContext As Sage.Accounting.DataModel.DataContext
    Public Sub New()
        _Model = New Sage.Data.ModelManagement.DataModelProvider().CreateNew("Sage 200 Accounts", Nothing)
        bound = _Model.BindConnection(Nothing)
        DataContext = _Model.ModelContext 'Sage.Accounting.DataModel.DataContext(Model.Connection)
    End Sub

End Class
-->

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