Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    Debug.WriteLine(m.Msg)
    If m.Msg = WM_POWERBROADCAST Then
        Debug.Write("WM_POWERBROADCAST: ")
        If m.WParam.ToInt32() = PBT_APMSUSPEND Then
            Debug.WriteLine("PBT_APMSUSPEND")
            RaiseEvent SuspendStart()
        ElseIf m.WParam.ToInt32() = PBT_APMRESUMEAUTOMATIC Then
            Debug.WriteLine("PBT_APMRESUMEAUTOMATIC")
            RaiseEvent SuspendEnd()
        End If
    End If
    MyBase.WndProc(m)
End Sub