13/06/2006, 11:13
|
 | | | Fecha de Ingreso: febrero-2006 Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 18 años, 3 meses Puntos: 7 | |
Para que declaras esto: Cita: Dim Basico, Plus, Premiere As Integer No lo necesitas. Cita: Private Sub Command4_Click()
If List1.Text = "Basico" Then
Text14.Text = 1000
ElseIf List1.Text = "Plus" Then
Text14.Text = 2000
ElseIf List1.Text = "Premiere" Then
Text14.Text = 3000
End If
End Sub Saludos!
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D |