Mouse Over→play/Mouse Out→stop

<HTML>
<HEAD>
<TITLE>169</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Sound_onMouseOver
Snd.run
End Sub
Sub Sound_onMouseOut
Snd.stop
End Sub
Sub Sound2_onMouseOver
Snd2.run
End Sub
Sub Sound2_onMouseOut
Snd2.stop
End Sub
Sub Sound3_onMouseOver
Snd3.run
End Sub
Sub Sound3_onMouseOut
Snd3.stop
End Sub
</SCRIPT>
</HEAD>
<BODY>
<DIV ALIGN="center" STYLE="font-size:14pt;color:red;font-weight:bold;">MouseOver→play/MouseOut→stop<BR><BR>
<INPUT TYPE="button" VALUE="ロマンス" ID="Sound">
<INPUT TYPE="button" VALUE="素敵な貴方" ID="Sound2">
<INPUT TYPE="button" VALUE="オルフェ" ID="Sound3"></DIV>
<OBJECT ID="Snd" STYLE="visibility:hidden" CLASSID="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
<PARAM NAME="FileName" VALUE="romance.mid">
</OBJECT>
<OBJECT ID="Snd2" STYLE="visibility:hidden" CLASSID="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
<PARAM NAME="FileName" VALUE="sutekina.mid">
</OBJECT>
<OBJECT ID="Snd3" STYLE="visibility:hidden" CLASSID="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
<PARAM NAME="FileName" VALUE="orfeo.mid">
</OBJECT>
</BODY>
</HTML>