Windows Forms

#Region "1).Declarations"
Dim con As SqlConnection
end region

• tb_Undo
• tb_UndoWW
• tb_WW

Private Sub tb_Undo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_Undo.Click
  'Enabled property not affected by other code
  rtf.Undo()

End Sub

Private Sub tb_UndoWW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_UndoWW.Click
  'Enabled property affected by rtf.SelectionChanged event handler
  If rtf.CanUndo Then
    rtf.Undo()
  End If
End Sub

Private Sub tb_WW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_WW.Click
  'toggle word wrap
  rtf.WordWrap = tb_WW.Checked

End Sub

Private Sub rtf_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtf.SelectionChanged
  'selection changes when word wrap is toggled
  'enables / disables tb_UndoWW
  tb_UndoWW.Enabled = rtf.CanUndo

End Sub

Private Sub menuEdit_Copy_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuEdit_Copy.Click, tb_Copy.Click, popup_Copy.Click
  Try
    If rtf.SelectedText.Length > 0 Then
      Clipboard.SetText(rtf.SelectedText, TextDataFormat.Text)
    End If
  Catch ex As Exception
    MsgBox(ex.ToString, MsgBoxStyle.Exclamation, title)
  End Try
End Sub