コード:
Type TESTD2
a as Integer
b as Long
End Type
Sub MainWnd_CommandButton1_Click()
Dim test2 = [3,11] as TESTD2
Debug
Stest(VarPtr(test2))
End Sub
こうしてみた所、初期化代入(?)の時点で値が正しく代入されてないことが分かります。(Ver.5.0 CP3で確認)
Integer型で正しく代入されないならWord型も代入されないんじゃないかと思ったらそうでした。
コード:
Type TESTD2
a as Word
b as Long
End Type
Sub MainWnd_CommandButton1_Click()
Dim test2 = [3,11] as TESTD2
Debug
Stest(VarPtr(test2))
End Sub
型のサイズが問題なんでしょうかね。