Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim tb(5) As TextBox
    Dim lbl(5) As Label
    Dim lb As ListBox
 
    Sub Lotto()
        Dim ar As New ArrayList
        Dim l As Int32
        Dim r As New Random(Now.Second)
 
        For a As Integer = Me.Controls.Count - 1 To 0 Step -1
            If Not Me.Controls(a) Is Me.Button1 Then
                Me.Controls.RemoveAt(a)
            End If
        Next
 
        lb = New ListBox
        lb.Location = New Point(5, 5)
        lb.Size = New Size(150, 150)
        lb.SelectionMode = SelectionMode.MultiExtended
        Me.Controls.Add(lb)
 
        Do Until ar.Count = 6
            l = r.Next(1, 49)
            If Not ar.Contains(l) Then ar.Add(l)
        Loop
        For Each o As Object In ar
            lb.Items.Add(o.ToString)
        Next
 
        For a As Integer = 0 To tb.Length - 1
            tb(a) = New TextBox
            lbl(a) = New Label
            lbl(a).Size = New Size(50, 15)
            tb(a).Location = New Point(lbl(a).Size.Width, (lb.Size.Height + 10) _
              + (a * 25))
            lbl(a).Location = New Point(5, (lb.Size.Height + 10) + (a * 25))
            lbl(a).Text = "Tipp " + (a + 1).ToString + ":"
            tb(a).Text = r.Next(1, 49)
            If lb.Items.Contains(tb(a).Text) Then
                tb(a).BackColor = Color.Green
                lb.SelectedIndex = lb.FindString(tb(a).Text)
            Else
                tb(a).BackColor = Color.Red
            End If
            Me.Controls.Add(tb(a))
            Me.Controls.Add(lbl(a))
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Lotto()
    End Sub
End Class