Private Sub Command1_Click()
Dim CT As Single
Dim CF As Single, COLOR As String
CT = Text1
COLOR = Combo1
Select Case COLOR
Case "BLANCA"
CF = CT
Case "VERDE"
CF = CT - CT * (10 / 100)
Case "AMARILLA"
CF = CT - CT * (25 / 100)
Case "AZUL"
CF = CT - CT * (50 / 100)
Case "ROJA"
CF = CT - CT * (100 / 100)
End Select
Text2 = CF
End Sub
Private Sub Command2_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Timer1_Timer()
End Sub
Private Sub Command3_Click()
Text1 = ""
Text2 = ""
End Sub
0 comentarios:
Publicar un comentario
deja un comentario en la entrada