Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim AbrechnungsQuartal As String, Options As String
    Dim Doctor As String, conDatei As String
    Dim strCode As String = ""
    Public Shared myPgStatus As ProgressBar
 
 
#Region " Vom Windows Form Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        myPgStatus = prgStatus
 
    End Sub
     ...
 
Public Class cConnections
    Public Function GetTable(ByVal sCon As String, ByVal sSel As String)
        Dim _conn As New OdbcConnection(sCon)
        Dim _da As New OdbcDataAdapter(sSel, _conn)
        Dim _dt As New DataTable
        Form1.myPgStatus.Minimum = 1
        Form1.myPgStatus.Maximum = 100
 
        Dim d As New fillDelegate(AddressOf fill)
        Dim iar As IAsyncResult = d.BeginInvoke(_da, _dt, Nothing, Nothing)
        Dim i As Integer = 1
        While Not iar.IsCompleted
            System.Threading.Thread.Sleep(2)
            i += 1
            If i > Form1.myPgStatus.Maximum Then i = 1
            Form1.myPgStatus.Value = i
        End While
        d.EndInvoke(iar)
        ...