オブジェクト参照からインタフェース参照へキャスト可能にする

[egtra]

次のコードがコンパイルできない問題を修正します。 {{{Class Hoge

Implements IUnknown

Public

Function AddRef?() As DWord End Function

Function Release() As DWord End Function

Function QueryInterface?(ByRef? riid As IID, ByRef? pv As Any) As HRESULT End Function

End Class

Dim o = New Hoge Dim u = o As IUnknown '"Operator As" は定義されていません。}}}