Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()
Else
TextBox1.Text = "The clipboad does not contain any text"
End If
End Sub
If Clipboard.ContainsText Then
Me.TextBox1.Text = Clipboard.GetText
End If