improve init, clean up code

GUIs.ZooFlow/ClassInitLoader.vb

@@ -96,8 +96,12 @@ Public Class ClassInitLoader
     Public Class InitException
         Inherits ApplicationException
 
-        Public Sub New(message As String)
-            MyBase.New(message)
+        Public Sub New(Message As String, InnerException As Exception)
+            MyBase.New(Message, InnerException)
+        End Sub
+
+        Public Sub New(Message As String)
+            MyBase.New(Message)
         End Sub
     End Class
 End Class