Private Sub Main_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
.
.
.
.
AddHandler SystemEvents.PowerModeChanged, AddressOf _
  SystemEvents_PowerModeChanged
.
.
.
End Sub
 
Private Sub SystemEvents_PowerModeChanged(ByVal sender As Object, ByVal e As _
  PowerModeChangedEventArgs)
 
        ' Aufwachen aus Standby überwachen
 
        If e.Mode.ToString = "Resume" Then
 
            'Trifft zu
            'Warten auf Netzwerk...
            Threading.Thread.Sleep(1500)
 
            ' Paket Senden
            WakeUp()
 
        End If
 
 
End Sub