<ComClass(Class1.ClassID, Class1.InterfaceID, Class1.EventsID)> _ 
Public Class Class1
.........
........
...........

<ComClass(Class1.ClassID.......................)> _ 
Public Class Class1
    Public Const ClassID As String = "D9B.........usw........."
    Public Const InterFaceID As String = " ..................."
    Public Const EventsID As String = " ..............."

public sub new()
mybase.new()
end sub