Dit is de code voor het programma Lottotrekking:
lblTrekking.Text = ""
lblreserve.Text = ""
Randomize()
Dim getrokken(42) As Boolean
Dim getal As Integer
Dim aantal As Integer
Do While aantal < 6
getal = Rnd() * 41 + 1
If Not getrokken(getal) Then
getrokken(getal) = True
aantal += 1
End If
Loop
Dim doorloper As Integer
For doorloper = 1 To 42
If getrokken(doorloper) Then
lblTrekking.Text &= vbCrLf & doorloper
End If
Next doorloper
Do
getal = Rnd() * 41 + 1
'If Not getrokken(getal) Then Exit Do
Loop Until Not getrokken(getal)
lblreserve.Text = getal