zooflow basics

ZooFlow/frmSplash.vb

@@ -0,0 +1,24 @@
+Public Class frmSplash
+    Sub New
+        InitializeComponent()
+    End Sub
+
+    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
+        MyBase.ProcessCommand(cmd, arg)
+
+        Dim oCommand As SplashScreenCommand = CType(cmd, SplashScreenCommand)
+        Select Case oCommand
+            Case SplashScreenCommand.SetProgress
+                Dim oPosition As Integer = CInt(Fix(arg))
+                ProgressBarControl1.Position = oPosition
+        End Select
+    End Sub
+
+    Private Sub frmSplash_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Version.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
+    End Sub
+
+    Public Enum SplashScreenCommand
+        SetProgress
+    End Enum
+End Class