Forms VisualBasic Script

Private Sub Form_Load()
    Dim obj As AccessObject
    For Each obj In CurrentData.AllTables
        Me.yourListBox.AddItem obj.Name
    Next obj
End Sub