[AccessD] A2K: Hide Queries via VBA

Hello all 
The following code hides all the tables in a dB- cool and it works well
But there seems to be no "dot attributes" (.Attributes =) setting for Queries from the QueryDefs object
I basically wanna run some enumerating code like below and hide queries, forms etc

Any ideas?

Many thanks

Darren

Function f_HideAllTables ()
Dim db As DAO.Database
Dim tbl As TableDef

Set db = CurrentDb()
For Each tbl In db.TableDefs
    tbl.Attributes = 2
Next
Application.RefreshDatabaseWindow
end function