コード: 全て選択
'----------------------------------------
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で確認しました
よろしくお願いします