鼠标划过标签自动变色特效、按钮声音例程

.如果真 (句柄 ＝ 按钮5.取窗口句柄 () 且 声音控制 ≠ 5)
播放音乐 (#声音1, ) ' 播放该按钮的声音
声音控制 ＝ 5
返回 ()
.如果真结束
.如果真 (句柄 ≠ 按钮1.取窗口句柄 () 且 句柄 ≠ 按钮2.取窗口句柄 () 且 句柄 ≠ 按钮3.取窗口句柄 () 且 句柄 ≠ 按钮4.取窗口句柄 () 且 句柄 ≠ 按钮5.取窗口句柄 ())
声音控制 ＝ 0