Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 49) + 1
Label2.Caption = Int(Rnd * 49) + 1
Label3.Caption = Int(Rnd * 49) + 1
Label4.Caption = Int(Rnd * 49) + 1
Label5.Caption = Int(Rnd * 49) + 1
Label6.Caption = Int(Rnd * 49) + 1
End Sub
Label1.Caption = Int(Rnd * 49) + 1
Label2.Caption = Int(Rnd * 49) + 1
Label3.Caption = Int(Rnd * 49) + 1
Label4.Caption = Int(Rnd * 49) + 1
Label5.Caption = Int(Rnd * 49) + 1
Label6.Caption = Int(Rnd * 49) + 1
End Sub