To hide: Private Sub PanelMinimize() Me.Visible = False Me.ShowInTaskbar = False ntfSysTrayIcon.Visible = True End Sub to restore: Private Sub PanelRestore() ntfSysTrayIcon.Visible = False Me.ShowInTaskbar = True Me.Visible = True End Sub

MyDate.Add(New TimeSpan(5, 59, 30)

a virtual method called DoAction() might be employed, and overridden in d