[CODE]Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Alignment = vbLeftJustify
Text1.Text = StrReverse(Text1.Text)
Case 1
Text1.Alignment = vbRightJustify
Text1.Text = StrReverse(Text1.Text)
End Select
End Sub

Private Sub Text1_Change()
If Text1.Alignment = vbRightJustify Then
Text1.SelStart = 0
End If
End Sub[/CODE]

OK，多谢，彻底解决哈！

Option Explicit
Dim i%
Private Sub Option1_Click()
i = 0
Text1.Alignment = 0
Text1.SelStart = Len(Text1)
Text1.SetFocus
End Sub

Private Sub Option2_Click()
Text1.Alignment = 1
Text1 = StrReverse(Text1)
i = 1
Text1.SetFocus
End Sub

Private Sub text1_change()
If i = 1 Then Text1.SelStart = 0
End Sub
晚了一步，呵呵