Dim (2) ’声明全局变量 Private Sub Form_Load() Scale(0,0)-(20,6) ’定义窗体的坐标系统 End Sub Private Sub CmdStart_Click() x=0 MMC.DevkeType=’’WaveAudio’’’设置多媒体设备类型 MMC.FileName=’’两只蝴蝶.wav’’ ’确定声音文件名 MMC.Cornmand=’’Open’’ ’打开多媒体设备 MMC.Command=’’P1ay’’ ’启动声音的播放 Timer1.Enabled=True’打开定时器 End Sub Private Sub Timer1_Timer() Ifx>20 Thenx=x-20’蝴蝶飞到右边界后再回到左边界 Image1.Left=x ’动态调整蝴蝶框的位置 Imagel.Top= (3) Image2.Len=x lmage2.Top= (4) x=x+0.1 ’确定蝴蝶下一步飞行位置 End Sub Private Sub CmdStop_Click() (5) Image1.Left=0 ’蝴蝶位置初始化 Image1.Top=2 Image2.Left=0 Imagc2.Top=3 MMlC.Command=’’Stop’’ ’停止播放 MMC.Command=’’Ciosc’’ ’关闭多媒体设备 End Sub