Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Dim a(6) a(1) = Val(Label1.Caption): a(2) = Val(Label2.Caption): a(3) = Val(Label3.Caption) a(4) = Val(Label4.Caption): a(5) = Val(Label5.Caption): a(6) = Val(Label6.Caption) For k = 1 To 5 For j = k + 1 To 6 If a(k) > a(j) Then g = a(k): a(k) = a(j): a(j) = g Next j Next k Label1.Caption = a(1): Label2.Caption = a(2): Label3.Caption = a(3) Label4.Caption = a(4): Label5.Caption = a(5): Label6.Caption = a(6) End Sub Private Sub Timer1_Timer() Show Randomize Timer Label1.Caption = Int(Rnd * 48) + 1 Randomize Timer Label2.Caption = Int(Rnd * 48) + 1 Randomize Timer Label3.Caption = Int(Rnd * 48) + 1 Randomize Timer Label4.Caption = Int(Rnd * 48) + 1 Randomize Timer Label5.Caption = Int(Rnd * 48) + 1 Randomize Timer Label6.Caption = Int(Rnd * 48) + 1 End Sub