Blame it on a long day.
vb Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim page As RadPageViewPage = AutoGamerMain.RadPageView1.SelectedPage
For Each txt As FastColoredTextBox In page.Controls.OfType(Of FastColoredTextBox)()
If LineNumberTxt.Text >= txt.LinesCount Or LineNumberTxt.Text <= 1 Then
MessageBox.Show("You have entered a line which does not exist. Perimeters are (1-" & txt.LinesCount & "). Please choose a new line.")
Else
txt.Focus()
txt.Selection.Start = New Place(0, LineNumberTxt.Text - 1)
txt.DoSelectionVisible()
txt.Invalidate()
End If
Next
End Sub