Private Delegate Sub Consumer_Delegate()
Dim delate_consumer As Consumer_Delegate = Nothing
Dim task_result As System.IasyncResult
Me.delate_consumer = New Consumer_Delegate(AddressOf Me.cosume_proc)
Me.task_result= delate_consumer.BeginInvoke(Nothing, Nothing)
③关闭:
Me.delate_consumer.EndInvoke(Me.task_result)