Dim dyt As WinForm.CheckBox = e.Form.Controls("dy") If dyt.Checked=True Then If e.keychar=0 Then Audio.Play("D:\Documents\Foxtable项目\管理项目13\wav\0.wav") Audio.play("D:\Documents\Foxtable项目\管理项目13\wav\0.wav", AudioPlayMode.WaitToComplete) End If End If