ObjectDbx layout control

Anyone know how to cycle through all layouts in a drawing using objectDBX??

Got it.

Dim AcadDbx As AxDbDocument
Dim AcadLay As AcadLayout

Set AcadDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.17") 
       For Each AcadLay In AcadDbx.Layouts
           If AcadLay.Block.IsLayout Then
           "CODE HERE"
       End If
       Next