ZUGFeRDTest: Update

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -102,9 +102,13 @@ Public Class Form1
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Dim oResult = OpenFileDialog1.ShowDialog()
+        Dim oArgs As New WorkerArgs()
 
         If oResult = DialogResult.OK Then
-            _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
+            Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
+            Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
+            Console.WriteLine()
+
         End If
     End Sub
 
@@ -161,7 +165,7 @@ Public Class Form1
 
         If oResult = DialogResult.OK Then
             Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
-            Dim oZUGFERD As CrossIndustryDocumentType = _zugferd.SerializeZUGFeRDDocument(oDoc)
+            Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
             Dim oPropName As String = txtPropName.Text
 
             Try