Class Form1 ....
    Private st As StackTrace
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        st = New StackTrace(True)
        Call New Threading.Thread(AddressOf Wait).Start()
    End Sub
    Private Sub Wait()
        Dim stack_t As System.Diagnostics.StackTrace = Me.st
        Dim stack_f As System.Diagnostics.StackFrame = stack_t.GetFrame(0)
        Dim mb As System.Reflection.MethodBase = stack_f.GetMethod
        MessageBox.Show(Me, mb.Name.ToString)
    End Sub
End Class