使用委托

①声明:

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)