ms

Controls.DocumentViewer/DocumentViewer.vb

@@ -126,6 +126,9 @@ Public Class DocumentViewer
     End Sub
     Private Sub FreeFile()
         Try
+            If Len(_FilePath) Then
+                Exit Sub
+            End If
             Dim oFileInfo = New IO.FileInfo(_FilePath)
             Dim oExtension As String = oFileInfo.Extension.ToUpper
             Select Case oExtension.ToUpper