'メッセージファイル
Public Const MAX = 100
Public message()
Redim message(MAX)
message(0) = "レニー「ボタンをクリックしてね。" & vbCrLf & "Enterキーでも進むわ。」"
message(1) = "LoadPicture"
message(2) = "rennie.gif"
message(3) = "レニー「こんな風に。」"
message(4) = "LoadPicture"
message(5) = "ishtar.gif"
message(6) = "イシュタル「なります。」"
message(7) = "LoadPicture"
message(8) = "rennie.gif"
message(9) = "レニー「使いたい人は。」"
message(10) = "LoadPicture"
message(11) = "ishtar.gif"
message(20) = "イシュタル「イシュタルまで。」"
message(25) = "End"
'メッセージ終わり