Public Sub SubOrFunc_DatenLaden()
    Call DG(Me.DG_Nachrichten1)
 End Sub
 
    Delegate Sub DGDelegate(ByVal DGG As Object)
 
    Public Sub DG(ByVal DGG As Object)
        Try
            If DGG.InvokeRequired Then
                Dim dd As New DGDelegate(AddressOf DG)
                Me.Invoke(dd, New Object() {DGG})
            Else
                Me.DG_Nachrichten1.DataMember = Nothing
                Me.DG_Nachrichten1.DataSource = Nothing
            End If
        Catch ex As Exception
          'msgbox("Fehler")
        End Try
    End Sub

Public Sub SubOrFunc_DatenLaden()
 
            Me.DG_Nachrichten1.invoke(...)
 
 end sub