' 将剪贴簿中的数据以一个实作IDataObject接口的对象传回。
Dim oDataObj As IDataObject = Clipboard.GetDataObject()
If oDataObj IsNot Nothing Then
' 检测从剪贴簿所传回的数据是否存在Wav Audio的格式。
If oDataObj.GetDataPresent(DataFormats.WaveAudio) Then
' 以Wave Audio格式取得音效数据并加以播放。
My.Computer.Audio.Play( _
CType(oDataObj.GetData( _
DataFormats.WaveAudio, True), System.IO.Stream), _
AudioPlayMode.Background)
End If
End If
…
End Try