関数名を取得

Public Shared Sub Main()
  Dim Nm As String = GetType(ClsMain).ToString & " : " & System.Reflection.MethodInfo.GetCurrentMethod.Name

Dim Nm As String = Me.GetType.ToString & " : " & System.Reflection.MethodInfo.GetCurrentMethod.Name