Public Sub Show
Log("SHOW")
If visible Then Return
CloseAllDialogs
visible = True
dateField.Enabled = False
DrawDays
pnlDialog.SetLayoutAnimated(0, MainPanel.Width / 2 - pnlDialog.Width / 2, MainPanel.Height / 2 - pnlDialog.Height / 2, _
pnlDialog.Width, pnlDialog.Height)
pnlDialog.BringToFront
pnlDialog.SetVisibleAnimated(200, True)
End Sub