Problem with selected text - RichTextBox

y0,
In my app the user can cut, copy and paste text.
I want the Cut button to be enabled only when the user is selecting a text (with Shift), and if the user is not selecting anything i want the button to be disabled.
I've tried this:

VB Code:

Private Sub EditText_Change()
If Len(EditText.SelText) > 0 Then
    Toolbar1.Buttons(11).Enabled = True
    Toolbar1.Buttons(12).Enabled = True
Else
    Toolbar1.Buttons(11).Enabled = False
    Toolbar1.Buttons(12).Enabled = False
End If
End Sub

How can i do that?

Try the SelLength property instead

VB Code:

If RichTextBox1.SelLength > 0 Then
    MsgBox RichTextBox1.SelText
Else
    MsgBox "No text selected!"
End If