[VB6] Clipboard con più controlli

[Brainjar]

Usa la proprietà del Form ActiveControl :

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 ComboBox Or ListBox Then
       Clipboard.SetText Me.ActiveControl.Text
       cmdCopia.Enabled = False
   End If
End Sub

Ciao,