this program outputs 5 different random numbers out of the range 1 - 100 (including 100)

form controls :
button
textbox

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bool1 As Boolean
        Dim random As New Random()
        Dim x As Integer
        For index = 1 To 5
            bool1 = True
            While bool1
                x = random.Next(1, 101)
                If Not TextBox1.Text.Contains(x.ToString()) Then
                    TextBox1.Text &= x.ToString() & " "
                    bool1 = False
                End If
            End While
        Next
    End Sub
End Class

:lol!: