Zooflow: Massive Clean up

GUIs.ZooFlow/ClassInitLoader.vb

@@ -1,8 +1,9 @@
 Imports System.ComponentModel
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Base
 
 Public Class ClassInitLoader
-    Inherits Base.BaseClass
+    Inherits BaseClass
 
     Private _Worker As BackgroundWorker
     Private _CurrentStep As InitStep
@@ -24,8 +25,9 @@ Public Class ClassInitLoader
     End Sub
 
     Public Function Run() As Boolean
-        _Worker = New BackgroundWorker()
-        _Worker.WorkerReportsProgress = True
+        _Worker = New BackgroundWorker With {
+            .WorkerReportsProgress = True
+        }
 
         AddHandler _Worker.DoWork, AddressOf DoWork
         AddHandler _Worker.ProgressChanged, Sub(sender As Object, e As ProgressChangedEventArgs)