Sub tbhPages_TabChanged
'everytime the tab is changed this event will be called.
Select tbhPages.CurrentTab
Case 0:
' ok we need to indicate that we are responding or away etc on the main page.
Select status
Case "Available":
myRespButt.Visible = False
myStatus.Text = "RESPONDING"
myStatus.Visible = True
Case "Away":
myRespButt.Visible = True
myStatus.Text = "Away"
myStatus.Visible = True
Case "Not Online":
myRespButt.Visible = False
myStatus.Text = "OFF Line"
myStatus.Visible = True
End Select
Case 1:
Log ("Away")
Case 2:
Log ("Register")
myRank.AddAll(Array As String("Chief", "Deputy", "Captain", "Lieutenant", "Fire Fighter", "Rookie"))
End Select
End Sub