Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim b As Integer, c As Integer Dim d As Integer c = Int(Rnd() * 1000) b = Int(Rnd() * 1000) Print "b=" & b Print "c=" & c d = c c = b b = d Print "b=" & b Print "c=" & c End Sub