構造体参照のインクリメントについて

[kobu]

以下のコードを実行すると、アクセス違反が起こるそうです。

コード: 全て選択

Sub Command(ByRef Pla As Com,mass As Byte)
	Pla.Dama=Pla.Dama+mass
	Pla.Dama+=mass'ここだけ引っかかる。
End Sub
Type Com
	Dama As Integer
End Type

Dim i As Com
i.Dama+=1
Command(i,1)

（使用　ＡＢ　Ｖｅｒ4.24.00）