public sealed class RasConnectionWatcher : RasComponent, 
	ISupportInitialize

Public NotInheritable Class RasConnectionWatcher
	Inherits RasComponent
	Implements ISupportInitialize

public ref class RasConnectionWatcher sealed : public RasComponent, 
	ISupportInitialize

[<SealedAttribute>]
type RasConnectionWatcher =  
    class
        inherit RasComponent
        interface ISupportInitialize
    end

RasConnectionWatcher watcher = new RasConnectionWatcher();  
public void Begin()
{
   watcher.Connected += new EventHandler<RasConnectionEventArgs>(this.watcher_Connected);
   watcher.Disconnected += new EventHandler<RasConnectionEventArgs>(this.watcher_Disconnected);
   watcher.EnableRaisingEvents = true;
}
private void watcher_Connected(object sender, RasConnectionEventArgs e)
{
   // A connection has successfully connected.
}
private void watcher_Disconnected(object sender, RasConnectionEventArgs)
{
   // A connection has disconnected successfully.
}

Dim watcher As New RasConnectionWatcher
Public Sub Begin()
   AddHandler watcher.Connected, Me.watcher_Connected
   AddHandler watcher.Disconnected, Me.watcher_Disconnected
   watcher.EnableRaisingEvents = True
End Sub
Public Sub watcher_Connected(ByVal sender As Object, ByVal e As RasConnectionEventArgs)
   ' A connection has successfully connected.
End Sub
Public Sub watcher_Disconnected(ByVal sender As Object, ByVal e As RasConnectionEventArgs)
   ' A connection has disconnected successfully.
End Sub