<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"
' 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()
Public Function subt(ByVal a As Integer, ByVal b As Integer)
Return a - b
This action is not allowed at this time as the site is in read-only mode. Please try again later.
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)