代入時に基底クラスへ変換できない

[イグトランス (egtra)]

関数呼出時や初期化時では問題ありませんが、後から代入するときには下のようにエラーになります。

Class Base
End Class

Class Derived
	Inherits Base
End Class

Dim d = New Derived

Dim b = d As Base 'Ok
Dim o = d As Object 'Ok

Dim b2 As Base
Dim o2 As Object

b2 = d 'キャスト演算子がオーバーロードされていません。
o2 = d '〃

b2 = d As Base '"Operator As" は定義されていません。
o2 = d As Object '〃

[dai]

[245]にて対応。