Public Class cConnections
    Dim f1 As Form1
 
    Public New(f As Form1)
        f1 = f
    End Sub    
    Public Function GetTable(...)
        prgStatus = f1.prgStatus
        '....
    End Function
End Class

    Dim myConnections = New cConnections(Me)
    ' ....