Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.Misc
Imports Infragistics.Win.FormattedLinkLabel
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
Dim editInfo As FormattedTextEditInfo = Me.UltraFormattedTextEditor1.EditInfo
' Set some test value.
Me.UltraFormattedTextEditor1.Value = "TEST"
' Select all of the contents.
editInfo.SelectAll()
' Copy the contents.
editInfo.Copy()
' Unselect and set the caret in the beginning.
editInfo.SelectionStart = 0
editInfo.SelectionLength = 0
' Paste the copied value. This will essentially duplicate the initial value.
editInfo.Paste()
' Select first character.
editInfo.SelectionStart = 0
editInfo.SelectionLength = 1
' Delete the selected content.
editInfo.Delete()
End Sub