DSControlling.VWAUSWERTUNG_SENDUNGEN.Clear()

       DSControlling.VWAUSWERTUNG_SENDUNGEN.Clear()
        Me.TSProgressBar1.Visible = True
        Me.TSL_Abfrage.Visible = True
        Me.Timer_Threading.Start()
 
        Dim d As New fillDelegate(AddressOf DA_SENDUNGEN.Fill)
        Dim iar As IAsyncResult = d.BeginInvoke(DSControlling, _
          "VWAUSWERTUNG_SENDUNGEN", Nothing, Nothing)
 
        While Not iar.IsCompleted
            Application.DoEvents()
            System.Threading.Thread.Sleep(1)
        End While
        d.EndInvoke(iar)
 
        Me.Timer_Threading.Stop()
        Me.TSProgressBar1.Visible = False
        Me.TSProgressBar1.Value = 0
        Me.TSL_Abfrage.Visible = False
        MsgBox("Fertig")