vb6代码转换为vb。net问题？
vb6代码：
Private Declare Function SMSDeliver_ReportCallBack Lib "third_gw " (ByVal Deliver_Report As Long) As Long

Private Sub Command2_Click()
SMSDeliver_ReportCallBack AddressOf Deliver2
End Sub

Public Sub Deliver2(ByRef re_type As Long)
......
End Sub

转换为。net后提示要用“委托”，怎么实现？

[解决办法]
不懂vb6，帮顶
[解决办法]
Private Declare Function SMSDeliver_ReportCallBack Lib "third_gw " ( _
ByVal lpfn As PROC) As Integer
Public Delegate Function PROC(ByRef re_type As Integer) As Integer
Public gobjDelegate As PROC=New PROC(AddressOf Deliver2)
Public Sub Deliver2(ByRef re_type As Integer)
......
End Sub
Private Sub Command2_Click()
SMSDeliver_ReportCallBack(gobjDelegate)
End Sub