Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim gisempire(50) As Short

gisempire(1) = Int(100 * Rnd(1)) List1.Items.Add(CStr(gisempire(1))) Dim i As Short Dim j As Short For i = 2 To 50 gisempirebbs: gisempire(i) = Int(100 * Rnd(1)) For j = 1 To i - 1 If gisempire(j) = gisempire(i) Then GoTo gisempirebbs End If Next List1.Items.Add(CStr(gisempire(i))) Next end sub