Sub ShowMenuGroup(iMenuGroup As Int)
Dim i As Int
For i = 1 To 5
ActionBar.Menu.SetGroupVisible(i, i = iMenuGroup)
Next
iCurrentMenuGroup = iMenuGroup
If iMenuGroup = 5 Then
Sleep(0) 'this is needed, otherwise buttons remain visible!
Dim bVisible As Boolean = General.iCurrentPanelType <> Enums.ePanelType.ShowWebview
ActionBar.Menu.GetItem(Enums.eMenuButtonType.PreviousPanel).Visible = bVisible
ActionBar.Menu.GetItem(Enums.eMenuButtonType.NextPanel).Visible = bVisible
End If
End Sub