On Button Click Event Write the followin Code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Clipboard.SetData(System.Windows.Forms.DataFormats.StringFormat, TextBox1.Text)
End Sub
I Hope It will help you.:)
--MKB