' 將剪貼簿中的數據以一個實作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