Private Sub cmdoyna_Click Dim Loto(1 To 6) As Integer Dim Check As Boolean Dim i, j, hold As Integer Loto(1) = Int(Rnd 49) + 1 For i = 2 To 6 Do 'Aynı sayının 2 kez gilmesini engellemeliyiz... Loto = Int(Rnd 49) + 1 Check = True For j = 1 To i - 1 If (Loto = Loto Then Check = False Exit For End If Next j Loop Until Check Next i ' 'Loto Sayılarını Küçükten Büyüğe Sırala ' For i = 1 To 6 For j = 1 To 5 If (Loto > Loto(j + 1)) Then hold = Loto Loto = Loto(j + 1) Loto(j + 1) = hold End If Next j Next i 'Ekrana Sayıları Yaz For i = 1 To 6 lblN(i - 1) = Loto Next i End Sub Private Sub cmdend_Click End End Sub Private Sub Form_Load Randomize Timer End Sub