Retrieving Class Name?

[KreativeKai]

I've found code to display the name of the program that is currently running:
MsgBox(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name)

and I've found code to display the sub routine I'm currently in:
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name)

Does anyone have code to display the class that the sub resides in?

Thanks for any input you can give!

 

[JohnYingling]

Private Sub DisplayName(ByVal obj As Object)
MessageBox.Show(obj.GetType.FullName)
End Sub

http://www.VBCompare.com

Compare Code

 

[KreativeKai]

Thanks for you help!!

I also received a reply on another message board to try the following which also works well:
System.Reflection.MethodInfo.GetCurrentMethod.DeclaringType.Name