Dim nm As String = e.Form.Controls("TopicBar1").Pages(0).Name
http://www.foxtable.com/help/topics/0841.htm