• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Select any text at anytime in a textbox/rtf/multi line ect... by calling this 3 line sub.

Select any text at anytime in a textbox/rtf/multi line ect... by calling this 3 line sub.

Select any text at anytime in a textbox/rtf/multi line ect... by calling this 3 line sub.

Rate Select any text at anytime in a textbox/rtf/multi line ect... by calling this 3 line sub.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Example:
'--------
'Private Sub txtAFKMessage_LostFocus()
'    Call selText(txtAFKMessage)
'End Sub
'Select all the text 

Sub selText(sObject As Object)
    sObject.SelStart = 0
    sObject.SelLength = Len(sObject.text)
End Sub