<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _
Public Class ComClass1
 
#Region "COM-GUIDs"
    Public Const ClassId As String = "d67e3134-4334-4b5a-ad60-b53e29e01692"
    Public Const InterfaceId As String = "7af44b16-c90b-45db-8be5-c2fada65e13f"
    Public Const EventsId As String = "25f73fcc-5c17-4f8f-b26f-f146cf2c6f77"
#End Region
 
    Public Sub New()
        MyBase.New()
    End Sub
 
 
    Public Function OpenForm() As Boolean
        Dim frm As New Form1
        frm.Show()
        OpenForm = True
    End Function
 
End Class