Dim i As IntegerPrivate Sub Command1_Click()i = i + 1If i = 1 Then Command1.Caption = iElse Command1.Caption = Int(Rnd * 100) + 1End IfEnd Sub