以下代码演示了如何从剪贴板读取数据：

Dim d As IDataObject = Clipboard.GetDataObject() 

If d.GetDataPresent(DataFormats.Text) Then

    MsgBox(CStr(d.GetData(DataFormats.Text)))

Else

    MsgBox("Invalid format")

End If