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