Private Sub BtnCopy_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnCopy.Click
My.Computer.Clipboard.Clear()
If Me.RichTextBox2.Text.Length > 0 Then
My.Computer.Clipboard.SetText(Me.RichTextBox2.Text) End If End Sub