Protected MustOverride Sub DoTask()
        Protected MustOverride Sub TaskStart(ByRef Cancel As Boolean)
        Protected MustOverride Sub WorkCompleted()
        Protected MustOverride Sub TaskAbbortRequest(ByRef Cancel As Boolean)
        Protected MustOverride Sub TaskAbborted()
 
#Region " IDisposable Support "
        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
                    ' Anderen Zustand freigeben (verwaltete Objekte).
                End If
 
                ' Eigenen Zustand freigeben (nicht verwaltete Objekte).
                ' Große Felder auf NULL festlegen.
                Me.Abort()
            End If
            Me.disposedValue = True
        End Sub
 
        ' 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
End Module