clean up

2021-04-26 16:43:42 +02:00
parent 2bf8a18277
commit 817347af6f
4 changed files with 15 additions and 6 deletions
--- a/GUIs.Common/Base/BaseForm.vb
+++ b/GUIs.Common/Base/BaseForm.vb
@@ -43,8 +43,7 @@ Namespace Base
        End Sub

        Public Sub ShowErrorMessage(ErrorMessage As String)
-            Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
-            _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass)
+            _ErrorHandler.ShowErrorMessage(ErrorMessage)
        End Sub
    End Class
 End Namespace