DocumentViewer visible Viewer

Controls.DocumentViewer/DocumentViewer.vb

@@ -473,6 +473,7 @@ Public Class DocumentViewer
 
             SpreadsheetControl1.Visible = False
             RichEditControl1.Visible = False
+
             SpreadsheetControl1.Dock = DockStyle.None
             RichEditControl1.Dock = DockStyle.None
 
@@ -485,11 +486,13 @@ Public Class DocumentViewer
                     oRange.AutoFitColumns()
 
                     SpreadsheetControl1.Visible = True
+                    GdViewer.Visible = False
                     SpreadsheetControl1.Dock = DockStyle.Fill
                 Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
                     RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension))
 
                     RichEditControl1.Visible = True
+                    GdViewer.Visible = False
                     RichEditControl1.Dock = DockStyle.Fill
                 Case Else
                     GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
@@ -499,9 +502,14 @@ Public Class DocumentViewer
                     GdViewer.BackColor = Color.White
 
                     If GdViewer.DisplayFromFile(FilePath) <> GdPictureStatus.OK Then
+
                         Dim oFileName = IO.Path.GetFileName(FilePath)
                         lbFileNotLoaded.Text = String.Format("Datei konnte nicht geladen werden:{0}{1}", vbCrLf, oFileName)
                         lbFileNotLoaded.Visible = True
+                    Else
+                        If GdViewer.Visible = False Then
+                            GdViewer.Visible = True
+                        End If
                     End If
 
             End Select