ayuda con un list

[manedf]

Que tal !!
Tengo un list con tres opciones que son: Basico, Plus y Premiere y tengo una caja de texto. Lo que quiero es que cuando seleccionen en la lista por ejemplo Plus automaticamente se ponga el precio correspondiente en la caja de texto.
Yo habia puesto lo siguiente pero esta super mal, NO FUNCIONA.

Private Sub Command4_Click()
Dim Basico, Plus, Premiere As Integer
If List1.Text = "Basico" Then
Text14.Text = 1000
ElseIf List1.Text = "Plus" Then
Text14.Text = 2000
Else
Text14.Text = 3000
End If
End Sub

Muchas gracias por su ayuda anticipadamente.

[elsaky]

con esto cargas el list al iniciar la pantalla

Private Sub Form_Load()
List1.AddItem "Basico"
List1.AddItem "Plus"
List1.AddItem "Premiere"
End Sub

con esto se llena el text1 segun la opcion elegida

Private Sub List1_Click()
Select Case List1.Text
Case "Basico"
Text1.Text = "1000"
Case "Plus"
Text1.Text = "2000"
Case "Premiere"
Text1.Text = "3000"
Case Else
Text1.Text=0
End Select
End Sub

espero que te sirva. saludos

[Fabuazul]

Para que declaras esto:

Dim Basico, Plus, Premiere As Integer

No lo necesitas.

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!

[manedf]

elsaky me funciono perfectamente como indicaste, te agradezco mucho !!