a guest Oct 23rd, 2018 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Dim CRPos As Integer
- CRPos = TextBox1.Text.IndexOf(Chr(10))
- If CRPos > -1 Then
- TextBox1.Select(1, CRPos)
- TextBox1.SelectionLength = CRPos
- TextBox1.SelectedText = ""
- End If
RAW Paste Data