Listing A
Form_Load event for Access 2000 and later
Private Sub Form_Load()
 Dim frm As Form
 Dim ctl As ListBox
 Dim aob As AccessObject
 Dim obj As Object
 Dim strList As String
 Set frm = Forms!frmSendSnapshotReport
 Set ctl = frm!lstReports
 Set obj = CurrentProject.AllReports
 For Each aob In obj
   strList = strList & aob.Name & ";"
 Next
 ctl.RowSourceType = "Value List"
 ctl.RowSource = strList
End Sub