caro_ll

helloooooooooooooooooooooooooooooooooooooooooooooooow

ifly_paugg

TAREA!:
          
          Private Sub Command1_Click()
          If Text1 = "Reinosa" Then
          MsgBox "%12 de descuento!", 64, "Que te pa saes SUPER"
          Else
          If Text1 = "Monterrey" Then
          MsgBox "%15 de descuento", 64, "Que te pa saes SUPER"
          End If
          End If
          
          End Sub
          
          Private Sub Command2_Click()
          Text1 = ""
          End Sub
          
          Private Sub Command3_Click()
          MsgBox "BYE!! CUIDATE!!! TK :)"
          End Sub
          
          Private Sub Command4_Click()
          Text2 = ""
          Text3 = ""
          Text4 = ""
          Text5 = ""
          End Sub
          
          Private Sub Command5_Click()
          End
          End Sub
          
          Private Sub Command6_Click()
          A1 = Val(Text2)
          A2 = Val(Text3)
          A3 = Val(Text4)
          Total = A1 + A2 + A3
          Text5 = Total
          End Sub
          
          Private Sub Label1_Click()
          
          End Sub