Public Class XWormTask
    Public msgPack As Byte()
    Public id As String
    Public doneClient As List(Of String)

    Public Sub New(ByVal _msgPack As Byte(), ByVal _id As String)
        msgPack = _msgPack
        id = _id
        doneClient = New List(Of String)()
    End Sub
End Class