Imports System
Imports System.Reflection
Imports System.Security
Imports Microsoft.VisualBasic
Class MyEventExample
Public Shared Sub Main()
Try
Dim myBindingFlags As BindingFlags = BindingFlags.Instance Or BindingFlags.Public _
Or BindingFlags.NonPublic
Dim myTypeBindingFlags As Type = GetType(System.Windows.Forms.Button)
Dim myEventBindingFlags As EventInfo = myTypeBindingFlags.GetEvent("Click", myBindingFlags)
If Not (myEventBindingFlags Is Nothing) Then
Console.WriteLine(myEventBindingFlags.ToString())
End If
Catch e As Exception
Console.WriteLine("The following exception was raised : {0}", e.Message)
End Try
End Sub
End Class