Delegate Sub DG1Delegate(ByRef o As Object)
 
    Public Sub SubOrFunc_TCPServerMessageAktualizeTable_Invoke(ByRef o As _
      Object)
        If Me.InvokeRequired Then
            Dim dd As New DG1Delegate(AddressOf _
              SubOrFunc_TCPServerMessageAktualizeTable_Invoke)
            Me.Invoke(dd, New Object() {o}) 
        Else
                Call SubOrFunc_DatenLaden()
        End If
    End Sub

    Delegate Sub DG1Delegate(ByRef o As Object, ByVal Tablename As String, _
      ByVal WhereString As String, ByVal RemoveValue As Boolean)
 
    Public Sub SubOrFunc_TCPServerMessageAktualizeTable_Invoke(ByRef o As _
      Object, ByVal Tablename As String, ByVal WhereString As String, ByVal _
      RemoveValue As Boolean)
        If Me.InvokeRequired Then
            Dim dd As New DG1Delegate(AddressOf _
              SubOrFunc_TCPServerMessageAktualizeTable_Invoke)
            Me.Invoke(dd, New Object() {o}) ', Tablename, WhereString, 
          ' RemoveValue))
        Else
                Call SubOrFunc_DatenLaden()
        End If
    End Sub