Select all text in RTBox

How can I select (highlight) all text in a RichTextBox. With a Click event not a mouse drag.

Thanks,
JO

VB Code:

Private Sub RTB_Click()
  With RTB
    .SelStart = 0
    .SelLength = Len(.Text) '.SelLen?
  End With
End Sub

Something like that

Simple enough!:)

Thanks,
JO