<System.Serializable()> <System.Runtime.InteropServices.ComVisible( _
      False)> Public Class MySQLThreading
        Private Command As String
 
        Public Sub New(ByVal Command As String)
            Me.Command = Command
        End Sub
 
        Private Sub DoCommand()
            Dim conn8 As MySqlConnection
            conn8 = New MySqlConnection( _
            "Data Source=" & My.Settings.MySQL_ServerIP.ToString & ";" & _
            "Port=" & My.Settings.MySQL_Serverport & ";" + _
            "Initial Catalog=" & My.Settings.MySQL_ServerDatabase.ToString & _
            ";" + _
            "User ID=" & My.Settings.MySQL_ServerUser.ToString & ";PWD=" & _
            My.Settings.MySQL_ServerPassword.ToString & _
            ";Use Compression=" & My.Settings.MySQL_UseCompression)
            Dim com8 As New MySqlCommand(Command, conn8)
            Command = Nothing
            conn8.Open()
            Dim i As Integer = com8.ExecuteNonQuery()
            com8.Dispose()
            conn8.Close()
            conn8.Dispose()
            Me.Finalize()
            'MySQLThreadingCount.CountDown()
        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
 
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
            unsetObject(Me)
        End Sub
    End Class

Public Sub unsetObject(ByVal obj As Object)
        obj = Nothing
    End Sub

 ThreadPool.SetMaxThreads(2, 2)