Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Wait() 'funktioniert jedoch nicht als Thread
 
    End Sub
 
    Private Sub Wait()
        Dim stack_t As New System.Diagnostics.StackTrace()
        Dim stack_f As System.Diagnostics.StackFrame = stack_t.GetFrame(1)
        Dim mb As System.Reflection.MethodBase = stack_f.GetMethod
        MessageBox.Show(Me, mb.Name.ToString)
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Dim t As New Test(New StackTrace)
        Dim thrd As New Threading.Thread(AddressOf t.Wait)
        thrd.Start()
End Sub
'//...
Public Class Test
    Private _st As StackTrace
    Public Sub New(ByVal st As StackTrace)
        Me._st = st
    End Sub
    Public Sub Wait()
        Dim mb As System.Reflection.MethodBase = Me._st.GetFrame(1).GetMethod
        MessageBox.Show(mb.Name.ToString)
    End Sub
End Class