Sub Command1_Click ()
Call MpuPlay
End Sub

Sub Form_Load ()
  RSTMPU
End Sub

Sub Form_Unload (Cancel As Integer)
  RSTMPU
  End
End Sub

Sub Command2_Click ()
 RSTMPU
 End
End Sub