Как я могу рандомизировать все строки в TextBox?

Question

Я хочу рандомизировать все строки в TextBox.Text.

Но мой код рандомизирует значения только в массиве myStrings(). То, что я хочу сделать, это рандомизировать все строки в TextBox.Text.

Вот мой код:

Dim myRnd as New Random
Dim myStrings() As String  = {dfasdht,agaskhga,twrtwert}

Textbox1.Text = myStrings(myRnd.Next(3))

Вот пример того, с чего TextBox.Text должен начинаться:

sample1
sample2
sample3

И заканчиваем:

sample2
sample1
sample3

Answer 1

Dim rng As New Random

'Get the current lines into an array.
Dim lines = TextBox1.Lines

'Randomise the array.
lines = lines.OrderBy(Function(line) rng.NextDouble()).ToArray()

'Put the randomised data back into the control.
TextBox1.Lines = lines