VB怎么将光标移动到文本的最后面?

程序在load的时候,里面有个文本框,Text1中有内容
为了方便记事
我希望在程序加载完成后,输入的光标能自动在Text1中内容的最后面,方便记事
我高手能帮我吗?
代码怎么写?
谢谢各位高手,我想只能以简为优了

private sub check1_click()
text1.setfocus
end sub

'Super 2003.3 Private Sub Text4_GotFocus(Index As Integer) Select Case Index Case Is = 0 Text4(0).BackColor = &HC0FFFF Case Is = 1 Text4(1).BackColor = &HC0FFFF Case Is = 2 Text4(2).BackColor = &HC0FFFF Case Is = 3 Text4(3).BackColor = &HC0FFFF End Select End Sub Private Sub Text4_LostFocus(Index As Integer) Select Case Index Case Is = 0 Text4(0).BackColor = &H80000005 Case Is = 1 Text4(1).BackColor = &H80000005 Case Is = 2 Text4(2).BackColor = &H80000005 Case Is = 3 Text4(3).BackColor = &H80000005 End Select End Sub

text1.SelStart=len(text1)

Text1.SetFocus '//将焦点赋予文本1 Text1.SelStart = Len(Text1.Text)'//光标的位置 = 文本1的字数