ZooFlow: Add Base Form

Modules.Logging/LogConfig.vb

@@ -292,7 +292,7 @@ Public Class LogConfig
     ''' <returns>The fully qualified class name</returns>
     ''' <remarks>This method is very resource-intensive!</remarks>
     <DebuggerStepThrough()>
-    Public Shared Function GetClassFullName() As String
+    Public Shared Function GetClassFullName(Optional IncludeMethodNames As Boolean = False) As String
         Dim oFramesToSkip As Integer = 2
         Dim oClassName As String = String.Empty
         Dim oStackTrace = Environment.StackTrace
@@ -303,6 +303,10 @@ Public Class LogConfig
             Dim oMethodStartIndex As Integer = oCallingClassAndMethod.LastIndexOf(".", StringComparison.Ordinal)
 
             If oMethodStartIndex > 0 Then
+                If IncludeMethodNames Then
+                    oMethodStartIndex = oCallingClassAndMethod.Count
+                End If
+
                 Dim oCallingClass = oCallingClassAndMethod.Substring(0, oMethodStartIndex)
                 oClassName = oCallingClass.TrimEnd("."c)