[AccessD] Listbox item Selected property staying false after clicking an item

I click on n item in a listbox and I can tell I have selected it but
whenever I test for Selected = true, Access is not reporting the true state
of the selected property.

There are column heads. 

Any idea why?

Function ActiveReportID() As Long
Dim i As Long
Dim Frm As Form
On Error Resume Next
Set Frm = Forms("FrmMatchReport")
If Frm Is Nothing Then
  ActiveReportID = 0
  Exit Function
End If

With Frm
  For i = 1 To .Controls("cboReportHeader").ListCount - 1
    If .Controls("cboReportHeader").Selected(i) Then 'Seems always to be
false even when staring at the control I can tell it's true!
      ActiveReportID = .Controls("cboReportHeader").Column(0, i)
      Exit Function
    End If
  Next
End With

End Function