Private Sub Command1_Click() Label1.Caption = "SUMALE + " & Label2.Caption & " Y PULSA ACEPTAR" Command2.Visible = True Command1.Visible = False Text1.Text = Label2.Caption End Sub Private Sub Command2_Click() Dim Num As Byte Num = Int(100 - 1) * Rnd + 0 Label2.Caption = Num Label1.Caption = "AHORA RESTALE - " & Label2.Caption & " Y PULSA ACEPTAR" Command2.Visible = True Command1.Visible = False Text2.Text = Label2.Caption Command2.Visible = False Command3.Visible = True End Sub Private Sub Command3_Click() Dim Num As Byte Num = Int(100 - 1) * Rnd + 0 Label2.Caption = Num Label1.Caption = "NUEVAMENTE AUMENTALE + " & Label2.Caption & " Y PULSA ACEPTAR" Text3.Text = Label2.Caption Command3.Visible = False Command4.Visible = True End Sub Private Sub Command4_Click() Label1.Caption = " AHORA TODO ESE RESUSLTADO OBTENIDO RESTALE CON EL PRIMER NUMERO QUE PENSASTE, Y CUANDO TIENES EL RESUSLTADO PULSA ACEPTAR" Command5.Visible = True Command4.Visible = False End Sub Private Sub Command5_Click() Dim resultado As String resultado = Val(Text1.Text) - Val(Text2.Text) + Val(Text3.Text) Label1.Caption = "LOS ESPIRITUS ACABAN DE DECIRME QUE TU RESULTADO ES " & resultado Command5.Visible = False Command6.Visible = True End Sub Private Sub Command6_Click() Unload Me Form1.Show End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() Dim Num As Byte Num = Int(100 - 1) * Rnd + 0 Label2.Caption = Num End Sub