.CurrentTab returns the same value for each tab clicked

Sub tbhPagesEventHandler_TabChanged
   
   ' These will make the code easier to read.
   '-----------------------------------------
   Dim intVisitsTab As Int : intVisitsTab = 0
   Dim intMaintenanceTab As Int : intMaintenanceTab = 1

   
   ToastMessageShow(tbhPages.CurrentTab, False)


   ' Start the activity the user wants.
   '-----------------------------------
   Select tbhPages.CurrentTab
      
      Case intVisitsTab
         StartActivity("Visits")

      Case intMaintenanceTab
         StartActivity("Maintenance")
   End Select
End Sub