Språk: VB

Jag vill hämta alla markerade värden från alla ListBoxar på sidan men vet ej hur jag skall skriva:

<code>
'--- letar alla kontroller på sidan
For Each frmCtrl In Page.Controls

'--- om det är sidans formulär
If (TypeOf frmCtrl Is HtmlForm) Then

'--- letar upp alla kontroller i formuläret
For Each objCtrl In frmCtrl.Controls

'--- om kontrollen är av typen listbox
If (TypeOf objCtrl Is ListBox) Then

********************************

'--- startar loop i listbox
For intCounter = 0 To objCtrl.???- 1

If (objCtrl.ID.???).Selected = True) Then
'--- hittat markerat värde
lblSelection.Text += ???
End If

Next '//For intCounter = 0 To objCtrl.??? - 1

********************************

End If '//If (TypeOf objCtrl Is ListBox)

Next '//For Each objCtrl In frmCtrl.Controls

End If '//If (TypeOf frmCtrl Is HtmlForm)

Next '//For Each frmCtrl In Page.Controls
</code>