Truco de Visual Basic.NET - Copiar el texto seleccionado en el portapapeles

Private Sub copiarBtn_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles copiarBtn.Click
If TextBox1.SelectionLength = 0 Then
' en .NET copia la selección actual
' por tanto, si no hay selección, lo seleccionamos todo
TextBox1.SelectAll()
End If
' copiamos la selección en el portapapeles
TextBox1.Copy()
End Sub