1 files changed, 49 insertions, 49 deletions
diff --git a/indenters/example.vb b/indenters/example.vb
index 2ecbdc0..94adf39 100755
--- a/indenters/example.vb
+++ b/indenters/example.vb
@@ -1,50 +1,50 @@
-Dim docRoot As New ChilkatXml
-
-Dim success As Long
-
-docRoot.Tag = "myDoc"
-
-'  To zip compress the content, set this flag to 1
-Dim zipContent As Long
-zipContent = 0
-'  To 128-bit AES encrypt the content, set this flag to 1
-Dim encryptContent As Long
-encryptContent = 0
-Dim encryptPassword As String
-encryptPassword = ""
-
-Dim pdfNode As ChilkatXml
-
-Set pdfNode = docRoot.NewChild("pdf","")
-
-'  Embed a PDF into XML
-success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)
-If (success <> 1) Then
-    MsgBox pdfNode.LastErrorText
-
-    Exit Sub
-End If
-
-MsgBox pdfNode.LastErrorText
-
-'  Display the entire XML document:
-Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf
-
-'  Get the Base64-encoded content and display it:
-Text1.Text = Text1.Text & pdfNode.Content & vbCrLf
-
-'  Extract the binary content from XML:
-Dim unzipContent As Long
-unzipContent = 0
-Dim decryptContent As Long
-decryptContent = 0
-Dim decryptPassword As String
-decryptPassword = ""
-success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)
-If (success <> 1) Then
-    MsgBox pdfNode.LastErrorText
-
-    Exit Sub
-End If
-
+Dim docRoot As New ChilkatXml
+
+Dim success As Long
+
+docRoot.Tag = "myDoc"
+
+'  To zip compress the content, set this flag to 1
+Dim zipContent As Long
+zipContent = 0
+'  To 128-bit AES encrypt the content, set this flag to 1
+Dim encryptContent As Long
+encryptContent = 0
+Dim encryptPassword As String
+encryptPassword = ""
+
+Dim pdfNode As ChilkatXml
+
+Set pdfNode = docRoot.NewChild("pdf","")
+
+'  Embed a PDF into XML
+success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)
+If (success <> 1) Then
+    MsgBox pdfNode.LastErrorText
+
+    Exit Sub
+End If
+
+MsgBox pdfNode.LastErrorText
+
+'  Display the entire XML document:
+Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf
+
+'  Get the Base64-encoded content and display it:
+Text1.Text = Text1.Text & pdfNode.Content & vbCrLf
+
+'  Extract the binary content from XML:
+Dim unzipContent As Long
+unzipContent = 0
+Dim decryptContent As Long
+decryptContent = 0
+Dim decryptPassword As String
+decryptPassword = ""
+success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)
+If (success <> 1) Then
+    MsgBox pdfNode.LastErrorText
+
+    Exit Sub
+End If
+
 MsgBox "Success!"
 \ No newline at end of file