A.MaxLengthB.SelLengthC.SelTextD.MultiLine
A.GotFocusB.ChangeC.LostFocusD.Click
A.Text1.SetFocusB.Text1.LostFocusC.Text1.GotFocusD."Text1.Text="