Como creo un listbox multiple

[heck0880]

Sub submit_Click(sender As Object, e As EventArgs)

Dim strNivel as string = lbNivel.SelectedItem.text 'Declaracion variable guarda valor de listbox.
Dim intVar as Integer 'Declaracon variable guarda valor del for.
Dim strDesp as string


Dim a as string

lblMensaje.text="Esto es un control Web " & name.text


Dim i as integer

For i =0 to lbNivel.ListCount -1


If lbNivel.Selected(i)=true then

lbNivel
End if
Next





For intVar=1 to 5
strDesp & = name.text & "<br>" 'Variable temporal
Next

lblDespliegue.Text = strDesp






End Sub



Este es mi codigo nose en que me equivoco

[RootK]

No entiendo muy bien lo que necesitas pero por lo que veo lo que pretendes es barrer tu listbox y guardar en una variable los campos seleccionados o no..??

Si es así... yo lo haría mas bien con un for each...

ejemplo.

Dim li As ListItem
For Each li In lbNivel.Items
If li.Selected Then
strDesp &= li.Value & ";"
End If
Next

Saludos