SelectText
Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=len(Text1) End Sub
Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=len(Text1)
End Sub
(selecttext.html)- by Paolo Puglisi - Modifica del 25/3/2019