A.
Private Sub Text1_GotFocus() Text1.SelStart=0 Textl.Se1Length=Len(Text1.Text) End Sub
B.
Private Sub Text1_LostFocus() Text1.SelStart=0 Textl.Se1Length=Len(Text1.Text) End Sub
C.
Private Sub Text1_Change() Text1.SelStart=0 Textl.Se1Length=Len(Text1.Text) End Sub
D.
Private Sub Text1_SetFocus() Text1.SelStart=0 Textl.Se1Length=Len(Text1.Text) End Sub