Portapapeles

[luciano]

Te paso una forma

Código:

Private Sub Command1_Click()
Clipboard.SetText List1.Text
End Sub

Private Sub Command2_Click()
Text1 = ""
Text1 = Clipboard.GetText
End Sub

Private Sub Form_Load()


For i = 0 To 10
List1.AddItem "ITem " & i
Next

Command1.Caption = "Copiar"
Command2.Caption = "Pegar"

End Sub

saludos :)


-----------