vb.net 通過按鈕複制内容

   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