Dim t(5, 6) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 6
t(i, j) = Int(Rnd * 90 + 10)
Picture1.Print t(i, j);
Next j
Picture1.Print
Next i
End Sub