' unknwn.sbp ' 本来はunknwn.idlから生成するのが正当ですが、これは手動で移植したものです。 '------------------- ' Unknown Interface '------------------- Dim IID_IUnknown = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID Interface IUnknown __COM Function QueryInterface(ByRef riid As IID, ByRef pvObj As Any) As HRESULT Function AddRef() As DWord Function Release() As DWord End Interface Dim IID_AsyncIUnknown = [&H000e0000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID Interface AsyncIUnknown Inherits IUnknown Function Begin_QueryInterface( /* [in] */ ByRef riid As IID) As HRESULT Function Finish_QueryInterface( /* [out] */ ByRef ppvObject As Any) As HRESULT Function Begin_AddRef() As HRESULT Function Finish_AddRef() As DWord Function Begin_Release() As HRESULT Function Finish_Release() As DWord End Interface Dim IID_IClassFactory = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID Interface IClassFactory Inherits IUnknown Function CreateInstance(ByVal unkOuter As IUnknown, ByRef riid As IID, ByRef ppvObject As Any) As HRESULT Function LockServer(ByVal fLock As BOOL) As HRESULT End Interface