Private Function GibZahlen() As List(Of Integer)
        Dim zahl As Integer
        Dim zahlen As New List(Of Integer)
        Dim rnd As New Random
 
        Do
            zahl = rnd.Next(1, 50)
 
            If Not zahlen.Contains(zahl) Then
                zahlen.Add(zahl)
            End If
        Loop Until zahlen.Count = 6
 
        Return zahlen
    End Function
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnStart.Click
        lstLottozahlen.DataSource = GibZahlen()
    End Sub