Private Sub Command11_Click()
Dim ct As Access.Control
Dim pg As Access.Page
For Each ct In Me.Controls
If [COLOR="Blue"]TypeOf ct.Parent Is Access.Page[/COLOR] Then
[COLOR="Green"] 'this control is on a tab page[/COLOR]
Set pg = ct.Parent
Debug.Print ct.Name & " is on page " & pg.Name & " with index " & pg.PageIndex
End If
Next
End Sub