Imports System
Imports System.Management
 
<ComClass(DIMadressen.ClassID, DIMadressen.InterfaceID, DIMadressen.EventsID)> _
Public Class DIMadressen
 
    Public Const ClassID As String = "46EB5C1E-74D9-41a1-8796-ACF8F548A8B3"
    Public Const InterfaceID As String = "A2FA1AA3-17A0-471b-BEB1-2F9292D7BD3F"
    Public Const EventsID As String = "6B176E7C-BBC7-4577-89A4-AB38D7700196"
 
    Public Sub New()
        MyBase.New()
    End Sub
 
...Propertys
...Functions
 
End Class