Private Sub myForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If Me.CancelClosing = True Then
            e.Cancel = True
            Me.CancelClosing = False
        End If
    End Sub

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

        If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32 = SC_CLOSE Then
            'Console.WriteLine(String.Format("{0:X4}", m.Msg))
            Me.CancelClosing = True
        End If

        MyBase.WndProc(m)
    End Sub