Form1

Form 1
este va en el boton ir a suma
Private Sub Command1_Click()
MsgBox "Buena Suerte"
Form1.Hide
Form2.Show

End Sub
este va en ir a resta
Private Sub Command2_Click()
MsgBox "BuenaSuerte"
Form4.Show
Form1.Hide
End Sub
este va en ir a multiplicacion
Private Sub Command3_Click()
MsgBox "Buena Suerte"
Form1.Hide
Form3.Show
End Sub
este va en salir
Private SubCommand4_Click()
MsgBox "Chau"
End

End Sub

Private Sub Form_Load()

End Sub

Form2
este va en otra suma
Private Sub Command1_Click()
Label1 = Int(Rnd * 100)
Label2 = Int(Rnd * 100)
Text1 = ClearLabel4 = Clear
Image1.Visible = False

Image2.Visible = False

End Sub

Private Sub Command2_Click()
este va en resultado
MsgBox "Si se puede"
If Val(Label1) + Val(Label2) = Val(Text1.Text)Then
Label4 = "Muy Bien!!!!"
sumascorrectas = sumascorrectas + 1
Image2.Visible = True
Else
Label4 = "te equibocaste"
Image1.Visible = True
End If
sumastotales = sumastotales + 1
End SubPrivate Sub Command3_Click()
este va en salir
MsgBox "Chau"
End
End Sub

Private Sub Command4_Click()
este va en el boton menu
Form1.Show
Form2.Hide

End Sub

Private Sub Form_Load()
esteva en el mismo form presionas dos cliks en el fondo
Randomize
Image1.Visible = False
Image2.Visible = False
End Sub

Private Sub Label4_Click()

End Sub

Form3

Private SubCommand1_Click()
Label1 = Int(Rnd * 100)
Label2 = Int(Rnd * 10)
Text1 = Clear
Label4 = Clear
Image1.Visible = False
Image2.Visible = False

End Sub

Private Sub Command2_Click()
MsgBox "Si se puede"
IfVal(Label1) - Val(Label2) = Val(Text1.Text) Then
Label4 = "Muy Bien!!!!"
restascorrectas = restascorrectas + 1
Image2.Visible = True
Else
Label4 = "te equibocaste"
Image1.Visible = True
EndIf
restastotales = restastotales + 1
End Sub

Private Sub Command3_Click()
MsgBox "Chau"
End
End Sub

Private Sub Command4_Click()
Form3.Hide
Form1.Show
End Sub

Private Sub Form_Load()...