Dim oCSonstige as new KlasseB
Dim myThread As New Thread(AddressOf oCSonstige.TableSortieren)
myThread.Start()

Private Shared m_dv As DataView
 
Public Sub TableSortieren()
        Dim m_dv As New DataView(ImportTable)
        m_dv.Sort = "ARTNR ASC"
End Sub
 
Public ReadOnly Property ViewASCSort() As DataView
        Get
            Return m_dv
        End Get
End Property

Dim oCSonstige as new KlasseB
Me.DataGrid1.DataSource = oSonstige.ViewASCSort