Const WM_NCATIVATE As Integer = &H86
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_NCATIVATE AndAlso Me.ContainsFocus Then
            Me.Close()
        End If
        MyBase.WndProc(m)
    End Sub