Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Wait() 'funktioniert
 
        Dim thrd As New Threading.Thread(AddressOf Wait) 'funktioniert nicht
        thrd.Start() 
 
    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