add documentviewer test

GUIs.Test.DocumentViewerTest/Form1.vb

@@ -0,0 +1,24 @@
+Imports DigitalData.Modules.Logging
+
+Public Class Form1
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oResult = OpenFileDialog1.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            TextBox1.Text = OpenFileDialog1.FileName
+        End If
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Try
+            DocumentViewer1.LoadFile(TextBox1.Text)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oKey = "0467389434974657969312056"
+        Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
+        DocumentViewer1.Init(oLogConfig, oKey)
+    End Sub
+End Class