pretty easy:
Private Sub bttnFirstLine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttnFirstLine.Click txtBox.Text = txtBox.Text.Substring(txtBox.Text.IndexOf(vbCrLf)) end sub
or
Private Sub bttnFirstLine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttnFirstLine.Click dim myString = txtBox.text txtBox.Text = myString.Substring(myString.IndexOf(vbCrLf)) end sub
source share