diff --git a/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb b/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb
index ea45550e..42e34114 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.Designer.vb
@@ -68,18 +68,18 @@ Partial Class Form1
         '
         Me.Button2.Location = New System.Drawing.Point(6, 19)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(221, 23)
+        Me.Button2.Size = New System.Drawing.Size(246, 23)
         Me.Button2.TabIndex = 2
-        Me.Button2.Text = "Validate PDF"
+        Me.Button2.Text = "Validate and Serialize PDF"
         Me.Button2.UseVisualStyleBackColor = True
         '
         'Button3
         '
         Me.Button3.Location = New System.Drawing.Point(6, 48)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(221, 23)
+        Me.Button3.Size = New System.Drawing.Size(246, 23)
         Me.Button3.TabIndex = 3
-        Me.Button3.Text = "Validate and Serialize PDF"
+        Me.Button3.Text = "Validate and Serialize PDF and Parse Props"
         Me.Button3.UseVisualStyleBackColor = True
         '
         'Button4
@@ -136,7 +136,7 @@ Partial Class Form1
         '
         Me.Button7.Location = New System.Drawing.Point(6, 77)
         Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(221, 23)
+        Me.Button7.Size = New System.Drawing.Size(246, 23)
         Me.Button7.TabIndex = 3
         Me.Button7.Text = "Extract PDF Attachments"
         Me.Button7.UseVisualStyleBackColor = True
diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb
index 0603bc3f..7cfdb15e 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/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