Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
s = Text1.SelText
Text1.Text = s
End Sub(
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
s = Text1.SelText
Text1.Text = s
End Sub(