Titre: Le presse-papier.

Description:

Exemple de copie dans le presse-papier et de récupération des données du presse-papier.

Le code:

 
Private Sub Command1_Click()
Dim Retour
Clipboard.Clear
Clipboard.SetText Text1.Text
Text1.Text = ""
Retour = MsgBox(Clipboard.GetText, 64, "Contenu du presse-papier")
End Sub

Private Sub Command2_Click()
Label1 = Clipboard.GetText
End Sub