Reflection
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Something(AddressOf Test) End Sub Private Sub Test() End Sub Private Sub Something(ByVal a As Action) Dim name As String = a.Method.Name End Sub End Class
Something
name
Test
__lambda_1
delegate
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)