Adotti la tecnica medesima del controllo :
(Approfitto per postare una correzione al codice precedente)
codice:
Private Sub cmdCopia_Click()
   Clipboard.Clear
   ' Controlla se il controllo ha la proprietà text
   ' altrimenti ti da un errore 
   If (TypeOf Me.ActiveControl Is TextBox) Or (TypeOf Me.ActiveControl Is ComboBox) Or (TypeOf Me.ActiveControl Is ListBox) Then
       Clipboard.SetText Me.ActiveControl.Text
       cmdCopia.Enabled = False
   End If
   If TypeOf Me.ActiveControl Is TreeView Then
       Dim oNodo As Node
       Set Nodo = TreeView1.SelectedItem
       If Not Nodo Is Nothing Then
           Clipboard.SetText Nodo.Text
           cmdCopia.Enabled = False
       End If
   End If
Tieni presente, però, che così non ti funzionerà mai. Per il semplice
motivo che con il click sul bottone PERDERAI il focus sul controllo.
Devi trovarti un meccanismo che ti conservi il controllo attivo
PRIMA di cliccare sul bottone.

Ciao,