Public Class MyDevice
 
    ''' <summary>
    ''' Die Methode, die beim Auslösen des DeviceConnected-Ereignis aufgerufen 
    ' wird.
    ''' </summary>
    ''' <remarks></remarks>
    Public Delegate Sub DeviceConnectedEventHandler(sender As Object, e As _
      System.EventArgs)
 
    ''' <summary>
    ''' Tritt ein, wenn eine Verbindung mit dem Gerät hergestellt wurde.
    ''' </summary>
    ''' <remarks></remarks>
    Public Event DeviceConnected As DeviceConnectedEventHandler
 
    Protected Overridable Sub OnDeviceConnected(e As System.EventArgs)
        RaiseEvent DeviceConnected(Me, e)
    End Sub
 
    Public Sub Connect()
        Call OnDeviceConnected(New System.EventArgs)
    End Sub
 
End Class

    Private WithEvents usbDevice As New MyDevice
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        usbDevice.Connect()
    End Sub
 
    Private Sub MyDevice_Connected(sender As Object, e As System.EventArgs) _
      Handles usbDevice.DeviceConnected
        Debug.WriteLine("Device connected")
    End Sub