number gen

Private Sub playButton_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) Handles playButton.Click

    Dim pick3 As List(Of Integer) = PickThree() '
    Dim s As String
    For i As Integer = 0 To pick3.Count - 1 '
        s &= pick3(i).ToString & " "
    Next
    pick3ResultsTextBox.Text = s

End Sub

Dim randomObject As New Random

Function PickThree() As List(Of Integer)
    Dim randomNumber As New List(Of Integer)
    For i As Integer = 1 To 3 '
        randomNumber.Add(randomObject.Next(1, 10)) '
    Next

    Return randomNumber

End Function