Private m_IsHide AsBoolean=True PrivateSub frmMain_Activated()Sub frmMain_Activated(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Activated If m_IsHide Then Me.WindowState = FormWindowState.Minimized Me.Hide() Else Me.WindowState = FormWindowState.Normal Me.Show() EndIf End Sub PrivateSub frmMain_Resize()Sub frmMain_Resize(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Resize IfMe.WindowState = FormWindowState.Minimized Then m_IsHide =True Me.Hide() EndIf End Sub PrivateSub mnuShow_Click()Sub mnuShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuShow.Click m_IsHide =False Me.WindowState = FormWindowState.Normal Me.Show() End Sub PrivateSub mnuHide_Click()Sub mnuHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHide.Click m_IsHide =True Me.WindowState = FormWindowState.Minimized Me.Hide() End Sub