v.basic sayısal loto programı

birtane buton ekleyın 6 tanede textbox tamamdır

buyrun arkdaşlar kodlar bana aittir .

hadi kolay gelsin

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim r As Integer
Randomize
a = Rnd * 39
Text1 = a
Randomize
b = Rnd * 39
Text2 = b
Randomize
c = Rnd * 39
Text3 = c
Randomize
d = Rnd * 39
Text4 = d
Randomize
e = Rnd * 39
Text5 = e
Randomize
r = Rnd * 39
Text6 = r
End Sub