<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _ Public Class ComClass1 #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 = "23520cb2-aa3a-431a-b87e-bb23ad6c0c42" Public Const InterfaceId As String = "c6d19f7e-8184-4c6c-b799-8f086a8ab04e" Public Const EventsId As String = "5bd8aa70-44ba-4f56-a3c8-fc9bca0befdf" #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 subt(ByVal a As Integer, ByVal b As Integer) Return a - b End Function End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)