Creas una proyecto de clase llamado SampleInfo
Imports System.Reflection
Public Class Info
Dim reflec As Assembly = Assembly.GetCallingAssembly
Sub New()
End Sub
Public Sub Info()
Dim minf As MethodInfo = MethodInfo.GetCurrentMethod
MsgBox("Soy " & minf.Name & ", he sido llamado desde " & reflec.ManifestModule.Name)
End Sub
End Class
Como ejemplo lo llamo desde un boton en algun programa......
Dim claseinfo As New Info
Private Sub cmdShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShow.Click
claseinfo.Info()
End Sub
y me muestra que llame y desde donde................