Delegate Test


Imports Microsoft.VisualBasic.CallType

Public Class TestJump
Inherits Test

Delegate Sub T()

Public Overrides Sub RunTest()

'Call TestBack()
Dim st As New StackFrame
Me.Name = st.GetMethod.ReflectedType.Name
Dim op As T = AddressOf TestBack
Call TestDelegate(AddressOf TestMe.TestBack)
Me.Result = True

Catch ex As Exception
Me.Result = False
Me.FailMessage = ex.Message
End Try

End Sub

Private Sub TestDelegate(ByVal op As T)
End Sub

End Class

Module TestMe
Public Sub TestBack()
End Sub
End Module

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: