Private Sub Command1_Click()
Dim tH(15), cH(16), tiH(51), rtiH(51), tC(51), cC(51), coC(51), rcC(51), t(7), c(7), r(51), rr(51), tT(12), cT(12), teT(51), rtT(51), ta(51, 4), z, b, v, x As Integer
'THISE IS APART FOR PROCESS THE TIME THE TIME
For i = 1 To 15
tH(i) = i
'Print tH(i)
Next i
For i = 1 To 9
cH(i) = 3
'Print cH(i)
Next i
For i = 10 To 15
cH(i) = 4
'Print cH(i)
Next i
i = 1
While (i < 52)
Randomize
x = Rnd() * 15 + 1
If cH(Int(x)) > 0 Then
tiH(i) = Int(x)
cH(Int(x)) = cH(Int(x)) - 1
rtiH(51) = Int(x)
'c3.AddItem (tiH(i))
'Print rtiH(51);
i = i + 1
End If
Wend

'THES PART FOR PROCESS THE CORSES THE CORSES
For i = 1 To 51
tC(i) = i
'Print tC(i);
Next i

For i = 1 To 51
cC(i) = 1
'Print cC(i)
Next i
i = 1
While (i < 52)
Randomize
x = Rnd() * 50 + 1
If cC(Int(x)) > 0 Then
coC(i) = Int(x)
cC(Int(x)) = cC(Int(x)) - 1
'c4.AddItem coC(i)
rcC(51) = Int(x)
'Print rcC(51);
i = i + 1

End If
Wend
'THES PART FOR PROCESS THE ROMS THE ROMS
For i = 1 To 7
t(i) = i
'Print t(i)
Next i
For i = 1 To 5
c(i) = 7
'Print c(i)
Next i
For i = 6 To 7
c(i) = 8
'Print c(i)
Next i
i = 1
While (i < 52)
Randomize
x = Rnd() * 6 + 1
If c(Int(x)) > 0 Then
r(i) = Int(x)
c(Int(x)) = c(Int(x)) - 1
'c2.AddItem (r(i))
rr(51) = Int(x)
'Print rr(51);
i = i + 1
End If
Wend

'THES PART FOR PROCESS THE TEACHERS THE TEACHERS
For i = 1 To 1
cT(1) = 3
'Print cT(i)
Next i

For i = 2 To 8
cT(i) = 4
'Print cT(i)
Next i

For i = 9 To 12
cT(i) = 5
'Print cT(i)
Next i

i = 1
While (i < 52)
Randomize
x = Rnd() * 11 + 1
If cT(Int(x)) > 0 Then
teT(i) = Int(x)
cT(Int(x)) = cT(Int(x)) - 1
'C1.AddItem (teT(i))
rtT(51) = Int(x)
'Print rtT(51);

i = i + 1
End If
Wend

 Dim rnd1, rnd2, rnd3, rnd4 As Integer


i = 1
While (i < 52)
Randomize
10: z = Rnd() * 50 + 1
If rcC(z) <> 0 Then
rnd1 = rcC(z)
rcC(z) = 0
Else
GoTo 10
End If

20: z = Rnd() * 50 + 1
If rtT(z) <> 0 Then
rnd2 = rtT(z)
rtT(z) = 0
Else
GoTo 20
End If

30: z = Rnd() * 50 + 1
If rr(z) <> 0 Then
rnd3 = rr(z)
r(z) = 0
Else
GoTo 30
End If

40: z = Rnd() * 50 + 1
If rtiH(z) <> 0 Then
rnd4 = rtiH(z)
rtiH(z) = 0
Else
GoTo 40
End If
ta(i, 1) = rnd1
ta(i, 2) = rnd2
ta(i, 3) = rnd3
ta(i, 4) = rnd4
 For i = 1 To 51
  For j = 1 To 4
  For k = 1 To i - 1
 If ta(i, 2) = ta(k, 2) Then
     If (ta(i, 3) = ta(k, 3)) And (ta(i, 4) = ta(k, 4)) Then
      'dont accept it
      ElseIf (ta(i, 3) = ta(k, 3)) And (ta(i, 4) <> ta(k, 4)) Then
       i = i + 1
    Print ta(i, j);
  'Print ta(i, 2);
  ' Print ta(i, 3);
  ' Print ta(i, 4);
    ElseIf (ta(i, 3) <> ta(k, 3)) And (ta(i, 4) = ta(k, 4)) Then
    'dont accept it
    Else
     i = i + 1
      Print ta(i, j);
     'Print ta(i, 2);
     ' Print ta(i, 3);
     ' Print ta(i, 4);
       End If
      
  End If
   Next k
    Next j
     Next i
   
Wend
End Sub