initialize zooflow

ZooFlow/frmSplash.vb

@@ -11,6 +11,8 @@
             Case SplashScreenCommand.SetProgress
                 Dim oPosition As Integer = CInt(Fix(arg))
                 ProgressBarControl1.Position = oPosition
+            Case SplashScreenCommand.SetActionName
+                txtActionName.Text = arg.ToString
         End Select
     End Sub
 
@@ -20,5 +22,6 @@
 
     Public Enum SplashScreenCommand
         SetProgress
+        SetActionName
     End Enum
 End Class