Imports Microsoft.Win32
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler SystemEvents.PowerModeChanged, AddressOf PowerModeChanged
    End Sub
    Private Sub PowerModeChanged(ByVal sender As Object, ByVal e As _
      PowerModeChangedEventArgs)
        If e.Mode = PowerModes.Resume Then
            'Das Betriebssystem steht unmittelbar davor,
            'aus dem Ruhezustand fortgesetzt zu werden.
        End If
    End Sub
End Class