Private Sub TextBox3_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim previous As Integer
Dim length As Integer
length = 0
TextBox3.SetFocus
previous = 2
TextBox3.CurLine = 2
Do
SendKeys "{RIGHT}", True
length = length + 1
Loop Until TextBox3.CurLine previous
TextBox3.CurLine = 2
TextBox3.SelLength = length
TextBox2.Text = TextBox3.SelText
End Sub
置顶卡
