整数から列挙体への変換ができない

[イグトランス (egtra)]

次のプログラムでは、e = E.Bとなることを期待しましたが、そうなりません。デバッガで見る限り、eのオブジェクト参照そのものが1になっているようです。

Enum E
	A = 0
	B = 1
End Enum
Dim dw = 1 As DWord

Dim e = dw As E
Debug