ayuda con un list

[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