Common: Clean up frmNotification_Startup

GUIs.Test.TestGUI/frmStart.vb

@@ -65,4 +65,29 @@ Public Class frmStart
         Dim oForm As New frmObjectProperties(LogConfig, Database)
         oForm.ShowDialog()
     End Sub
+
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        Dim oClient = New DigitalData.Modules.EDMI.API.Client(LogConfig, "172.24.12.39:9000")
+        oClient.Connect()
+
+        Dim oEnv = New DigitalData.Modules.ZooFlow.Environment()
+        oEnv.Service.Client = oClient
+        oEnv.Database = Database
+
+        Dim oTable As New DataTable
+        oTable.Columns.AddRange(New List(Of DataColumn) From {
+            New DataColumn("GUID", GetType(Integer)),
+            New DataColumn("TITLE"),
+            New DataColumn("DISPLAY_TYPE"),
+            New DataColumn("MSG_STRING"),
+            New DataColumn("VALIDATE_READ", GetType(Boolean))
+        }.ToArray)
+
+        oTable.Rows.Add("1", "Public Service Announcement", "MESSAGE", "This is an Important Message from the Management!", 1)
+        oTable.Rows.Add("2", "Public Service Announcement", "MESSAGE", "This is another Important Message from the Management!", 0)
+        oTable.AcceptChanges()
+
+        Dim oForm As New frmNotification_Startup(oTable, LogConfig, "", "Test Notification", oEnv)
+        oForm.Show()
+    End Sub
 End Class