[Statuss]

Private Sub Command1_Click()
Label8.Caption = Int(Rnd * 49) + 1
Label9.Caption = Int(Rnd * 49) + 1
Label10.Caption = Int(Rnd * 49) + 1
Label11.Caption = Int(Rnd * 49) + 1
Label12.Caption = Int(Rnd * 49) + 1
Label13.Caption = Int(Rnd * 49) + 1
End Sub

Visual Basic
Kolaygelsin