All,
I cannot set a form caption in code.
The subroutine is called from the page onLoad/onSetactive event. But the form caption does not change.
Sub getPageNum(pageNum)
Dim numPages
numPages = 0
Dim mForm
Set mForm = ThisEvent.Object.Parent
Dim pPage
For Each pPage In mForm.Pages
numPages = numPages + 1
Next
mForm.Caption = Application.Map.EditLayer.Name + " 1 of " + cStr(numPages)
End Sub