Entity Framework : Comment lister les tables ?

Pour lister les tables de la base de données avec Entity Framework, la solution la plus simple est de faire :

   Public Sub ListerTables()

       Dim objectContext = DirectCast(context, Infrastructure.IObjectContextAdapter).ObjectContext
       Dim tables = objectContext.MetadataWorkspace.GetItems( _
           Of Core.Metadata.Edm.EntityType)(Core.Metadata.Edm.DataSpace.CSpace)
       For Each table In tables
           Debug.WriteLine(table)
       Next

   End Sub