自作クラス型を別の型にキャストの仕方

たてまえ  2008-10-31 22:00:12  No: 101249  IP: 192.*.*.*

いつもお世話になっております。

表題のとおり、VB6にて自作クラス型を別の型にキャストしたいのですが、
どのように実現すればよろしいのでしょうか。

VB.NETのCType、VC++のQueryInterface と同じことをVB6.0で実装させたいです。

編集 削除
やじゅ  2008-10-31 22:58:20  No: 101250  IP: 192.*.*.*

今どき VisualBasic6
http://kurusugawa.jp/blog/archives/46/

Java：
ConcreteType tConcreteInstance = (ConcreteType)tAbstractInstance; 
↓
VB6：
Dim tConcreteInstance As ConcreteType
Set tConcreteInstance = tAbstractInstance

編集 削除