TextBox : สร้างปุ่มวางข้อความจากคลิปบอร์ด

การสร้างปุ่มเพื่อวางข้อความจากคลิปบอร์ด ใส่ในtextbox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpaste.Click
If My.Computer.Clipboard.ContainsText Then
TextBox1.Text = My.Computer.Clipboard.GetText
End If
End Sub