[此贴子已经被作者于2017-10-2 10:04编辑过]
Private Sub Text1_LostFocus() Text1.Text = StrReverse(Text1.Text) End Sub
Private Sub Text1_Change() Text1.SelStart = 0 End Sub