We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
<ComClass(Test.ClassId, Test.InterfaceId, Test.EventsId)> _ Public Class Test #Region "COM GUIDs" ' These GUIDs provide the COM identity for this class ' and its COM interfaces. If you change them, existing ' clients will no longer be able to access the class. Public Const ClassId As String = "dffcd182-7464-42a9-af6c-de7c85effac0" Public Const InterfaceId As String = "e24b1f99-a641-4786-b5a8-ea21b35029f3" Public Const EventsId As String = "fece03ea-90bb-40d6-b112-d7af87fe0424" #End Region ' A creatable COM class must have a Public Sub New() ' with no parameters, otherwise, the class will not be ' registered in the COM registry and cannot be created ' via CreateObject. Public Sub New() MyBase.New() End Sub Public Function Hmm() As String Return "HA" End Function End Class