BasicLoop.vb

Public Class Form1
    ' Form Controls: Button BtnPush, ListBox LstOutput
 
    Dim r As Random
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        r = New Random()
    End Sub
 
    Private Sub BtnPush_Click(sender As System.Object, e As System.EventArgs) Handles BtnPush.Click
        LstOutput.Items.Clear()
        For i = 1 To 10
            LstOutput.Items.Add(r.Next(1, 6))
        Next
    End Sub
End Class