Checkbox list problem.

 Hello friends,
My checkbox list .selected is always returning false.
code:


Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
  Dim itemCount As Integer = chkUsername.Items.Count
  For i = 0 To itemCount - 1
  If chkUsername.Items(i).Selected = True Then
       MsgBox(chkUsername.Items(i).Value)
  End If
  Next

  End Sub


How do i solve this friends?


Thanks a lot
Best Regards,
Roub 
...