DocumentViewer back to richtextedit

Controls.DocumentViewer/DocumentViewer.vb

@@ -23,6 +23,7 @@ Public Class DocumentViewer
     Private Enum ViewerMode
         GDPicture
         Excel
+        Richtext
     End Enum
 
     Private Enum FileLoadMode
@@ -124,8 +125,6 @@ Public Class DocumentViewer
     ''' </summary>
     Public Sub LoadFile(FilePath As String)
         FileLoaded = False
-        we
-
         If _licenseKey = String.Empty Then
             _logger.Warn("License key was not provided. File {0} not loaded.", FilePath)
             Exit Sub
@@ -442,6 +441,8 @@ Public Class DocumentViewer
         Select Case Extension.ToUpper
             Case "CSV"
                 _ViewerMode = ViewerMode.Excel
+            Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
+                _ViewerMode = ViewerMode.RichText
             Case Else
                 _ViewerMode = ViewerMode.GDPicture
         End Select
@@ -472,7 +473,9 @@ Public Class DocumentViewer
             lbFileNotLoaded.Visible = False
 
             SpreadsheetControl1.Visible = False
+            RichEditControl1.Visible = False
             SpreadsheetControl1.Dock = DockStyle.None
+            RichEditControl1.Dock = DockStyle.None
 
             Select Case oExtension.ToUpper
                 Case ".CSV"
@@ -484,7 +487,11 @@ Public Class DocumentViewer
 
                     SpreadsheetControl1.Visible = True
                     SpreadsheetControl1.Dock = DockStyle.Fill
+                Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT"
+                    RichEditControl1.LoadDocument(FilePath, GetDocumentFormat(oExtension))
 
+                    RichEditControl1.Visible = True
+                    RichEditControl1.Dock = DockStyle.Fill
                 Case Else
                     GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
                     GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter