Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_SYSCOMMAND As Integer = &H112
        Const SC_CLOSE As Integer = &HF060
        Const SC_MINIMIZE As Integer = &HF020

        If m.Msg = WM_SYSCOMMAND And (m.WParam = SC_MINIMIZE Or m.WParam = SC_CLOSE) Then
            Me.Hide()
            Exit Sub
        End If
        MyBase.WndProc(m)
    End Sub