Private Sub Form_Load()
Show
A = Val(InputBox("KAÇ KOLON OYNAMAK İSTİYORSUNUZ"))
For K = 1 To A
A = Int(Rnd * 49) + 1
B = Int(Rnd * 49) + 1
C = Int(Rnd * 49) + 1
D = Int(Rnd * 49) + 1
E = Int(Rnd * 49) + 1
F = Int(Rnd * 49) + 1
Print A, B, C, D, E, F
Next K
End Sub