اشکال در SelLength و Selstart کمک لطفا؟؟؟

[white fox]

سلام من یه مشکلی با این کد دارم...شما فرض کنید این کد یک تکست باکس دارد با 2 تا option box که وظیفه یکی انتخاب کل متن است که با دستور SelLenght باید کار کنه و دیگری خط چشمکزن رو به انتها میبره...
مشکل من اینه که دومی کار نمیکنه..اولی هم یک بار کار میکنه دفعه دوم که مثلا option box ها رو عوش میکنیم دیگه کار نمیکنه...اگه میشه بگید اشکال این کد چیه؟
Option Explicit
Dim x As Integer

Private Sub chkBold_Click()
If chkBold.Value = vbChecked Then
Text1.Font.Bold = True
Else
Text1.Font.Bold = False
End If
End Sub

Private Sub chkItalic_Click()
If chkItalic.Value = vbChecked Then
Text1.Font.Italic = True
Else
Text1.Font.Italic = False
End If
End Sub

Private Sub chkNormal_Click()
If chkNormal.Value = vbChecked Then
Text1.Font.Bold = False
Text1.Font.Italic = False
Else
Text1.Font.Bold = True
Text1.Font.Italic = True
End If
End Sub

Private Sub Form_Load()
optAll.Value = False
optPE.Value = False
End Sub

Private Sub optAll_Click()
x = Len(Text1.Text)
If optAll.Value = True Then
Text1.SelLength = x
End If
End Sub

Private Sub optPE_Click()
x = Len(Text1.Text)
If optPE.Value = True Then
Text1.SelStart = x
End If
End Sub

[Abbas Arizi]

توی کار شما دوتا اشکال وجود داره:
اول اینکه برای اینکه TextBox به حالت SelectAll دربیاد باید فوکوس روی اون باشه. بنابراین باید بعد از تنظیم SelLength یک دستور SetFocus هم برای اون TextBox بنویسید.
دوم اینکه برای اینکه SelLength تمام متن رو انتخاب کنه SelStart (نقطه شروع) باید 0 باشه. ولی شما توی radio دومی اول کرسر رو میارید آخر بعد SelLength رو تنظیم مکنید و این باعث میشه که هیچی انتخاب نشه.

[white fox]

آقا از راهنماییتون واقعا ممنونم...