<System.Serializable()> <System.Runtime.InteropServices.ComVisible( _
   False)> Public Class MySQLThreading
        Implements IDisposable
        Private Command As String
 
        Public Sub New(ByVal Command As String)
            Me.Command = Command
        End Sub
 
        Private Sub DoCommand()
            Dim constring As String = String.Format( _
                    "Data Source={0};Port={1};Initial Catalog={2};User" & _
                    "ID={3};PWD={4};Use Compression={5}", _
                    My.Settings.MySQL_ServerIP.ToString, _
                    My.Settings.MySQL_Serverport.ToString, _
                    My.Settings.MySQL_ServerDatabase.ToString, _
                    My.Settings.MySQL_ServerUser.ToString, _
                    My.Settings.MySQL_ServerPassword.ToString, _
                    My.Settings.MySQL_UseCompression _
                    )
            Using conn8 As New MySqlConnection(constring)
                conn8.Open()
                Dim com8 As New MySqlCommand(Command, conn8)
                Dim i As Integer = com8.ExecuteNonQuery()
            End Using
            Me.Dispose(True)
        End Sub
 
        Public Sub WaitCallbackSub(ByVal state As Object)
            Try
                DoCommand()
            Catch ex As Exception
                Dim f As New Fehler("ThreadingSQL konnte Befehl nicht" & _
                  "ausführen", ex.Message)
                Throw ex
            End Try
        End Sub
 
        Public Sub Run()
            ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf _
              WaitCallbackSub))
        End Sub
 
        Private disposedValue As Boolean = False        ' So ermitteln Sie 
        ' überflüssige Aufrufe
 
        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit 
                    ' aufgerufen werden
                End If
 
                ' TODO: Gemeinsam genutzte nicht verwaltete Ressourcen freigeben
            End If
            Me.disposedValue = True
        End Sub
 
#Region " IDisposable Support "
        ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster 
        ' richtig zu implementieren.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Ändern Sie diesen Code nicht. Fügen Sie oben in Dispose(ByVal 
            ' disposing As Boolean) Bereinigungscode ein.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region
 
    End Class