Del key for output window

instat/ucrOutputWindow.vb

@@ -21,9 +21,19 @@ Public Class ucrOutputWindow
     'TEST temporary
     Private Sub ucrOutputWindow_Load(sender As Object, e As EventArgs) Handles Me.Load
         autoTranslate(Me)
+        'for some reason the normal KeyDown event is not raised when del key is pressed
+        'probably because the del is not recognised as an inputkey to ucrRichTextBox 
+        AddHandler ucrRichTextBox.PreviewKeyDown, AddressOf ucrRichTextBox_KeyDownEventHandler
+    End Sub
 
+    Private Sub ucrRichTextBox_KeyDownEventHandler(sender As Object, e As EventArgs)
+        'if its a delete key then delete the selection
+        If DirectCast(e, System.Windows.Input.KeyEventArgs).Key = System.Windows.Input.Key.Delete Then
+            ucrRichTextBox.rtbOutput.Selection.Text = ""
+        End If
     End Sub
 
+
     'Protected Overrides Sub OnFormClosing(ByVal e As FormClosingEventArgs)
     '    MyBase.OnFormClosing(e)
     '    If Not e.Cancel AndAlso e.CloseReason = CloseReason.UserClosing Then
@@ -121,4 +131,6 @@ Public Class ucrOutputWindow
     Private Sub HelpRTB_Click(sender As Object, e As EventArgs) Handles HelpRTB.Click
         Help.ShowHelp(Me, frmMain.strStaticPath & "\" & frmMain.strHelpFilePath, HelpNavigator.TopicId, "540")
     End Sub
+
+
 End Class