Public Class HTMLEditor
 
   Inherits WebBrowser
 
   Public Sub New()
      Me.AllowNavigation = True
      Me.AllowWebBrowserDrop = False
      Me.IsWebBrowserContextMenuEnabled = True
      Me.ScriptErrorsSuppressed = True
      Me.NewDocument()
      Me.Document.ExecCommand("EditMode", True, Nothing)
      Me.Document.ExecCommand("LiveResize", True, Nothing)
   End Sub
 
End Class

 
Me.Document.Selection = .SelectionText

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.