Nybörjarfel: .List()

Hejsan,

Har en liten kodsnutt som genererar ett fel som jag inte riktigt förstår varför:

Private Sub SelectUsers_Click()
  Dim strText As String
  Dim i As Integer

  For i = 0 To Users.ListCount
    If Users[b].List(i)[/b].Selected Then
      strText = strText & Users.List(i) & vbCrLf
    End If
  Next

  UsersLabel.Caption = strText
End Sub

Felmeddelande: "Invalid qualifyer"

Mvh, Vide

Nu har jag inte VB installerat för tillfället men nånstans i bakhuvudet dyker ordet ListItem upp. Finns den egenskapen? I så fall låter det bättre... Testa! :)

red: Hmm... bakhuvudet känns inte helt pålitligt idag ;)

  Dim strText As String
  Dim i As Integer

  For i = 0 To Users.ListCount [b]- 1[/b]
    If Users.Selected(i) Then
      strText = strText & Users.List(i) & vbCrLf
    End If
  Next

  UsersLabel.Caption = strText

Om vi förutsätter att Users är en mutiselect listbox ..

Tackar så mycket, nu börjar det lossna i hjärngodset... ;)