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