Select Case文

[かと]

コード: 全て選択

'----------------------------------------
Sub test( c As BytePtr)
	Select Case c
		Case "a"
		Case Else
	End Select
End Sub

test("b")
'----------------------------------------

↑のコードを実行するとアクセス違反で落ちます

Case Elseを抜くと正常動作します
testの引数がBytePtr型以外の場合も正常動作します

AB4.01.02
98、2000、XPで確認しました
よろしくお願いします