Module Module1
 
    Sub Main()
        EineFunktion()
 
        NochEineFunktion()
 
        Console.ReadLine()
    End Sub
 
    Public Sub NochEineFunktion()
        EineFunktion()
    End Sub
 
    Public Sub EineFunktion()
        Dim st As New StackTrace
        Dim sf As StackFrame = st.GetFrame(1)
        Dim mb As Reflection.MethodBase = sf.GetMethod
        Console.WriteLine("Ich wurde aufgerufen von: " & mb.Name)
    End Sub
 
End Module

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co