Private Sub SetRecreation()
Try
lstEmergencyTeam.Visible = False
lblEmergencyTeamCount.Visible = False
mnuVisitor.Visible = False
btnEditVisitors.Visible = False
EmergTitledAnchorPane.RemoveAllNodes
Dim ap As AnchorPane
ap.Initialize("")
ap.LoadLayout("frmRecreationMenu")
Dim img As Image
img.Initialize(File.DirAssets, "Abo-Img.png")
ABOImgRecreation.SetImage(img)
' ABOImgRecreation.PreserveRatio = False
img.Initialize(File.DirAssets, "Barcode-1.png")
DayImgRecreation.SetImage(img)
DayImgRecreation.PreserveRatio = False
EmergTitledAnchorPane.AddNode(ap, -5, -5, -5, -5)
' DayImgRecreation.Left = (ABOImgRecreation.Left + (ABOImgRecreation.Width /2) - (DayImgRecreation.Width ))
Functions.ShowLog(Functions.GetTitledPaneText(EmergTitledPane), False)
Functions.setTitledPaneText(EmergTitledPane, "Recreation")
' PrecenseTitledPane.Visible = False
Catch
Functions.ShowLog("Error Set Recreation", False)
End Try