BytePtr配列の初期化

[イグトランス]

このコードをコンパイルして実行するとアクセス違反になってしまいます。
たちの悪いことにデバッグ実行ではProjectEditorが巻き添えになって落ちてしまいます。
せめてそれだけは勘弁してほしいです。

コード: 全て選択

#strict

Const Size = ELM(3)

Dim Expression[Size] = ["Angry", "Enjoy", "Sad"] As BytePtr 
Dim i As Long
For i = 0 To Size
	MessageBox(0, Expression, "", MB_OK)
Next