GUIs.Test: Update test apps

GUIs.Test.TestGUI/frmDocView.vb

@@ -0,0 +1,16 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmDocView
+    Private LogConfig As LogConfig
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
+            DocumentViewer1.LoadFile(OpenFileDialog1.FileName)
+        End If
+    End Sub
+
+    Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LogConfig = New LogConfig(LogConfig.PathType.Temp)
+        DocumentViewer1.Init(LogConfig, "21182889975216572111813147150675976632")
+    End Sub
+End Class