[VB6] Copiare Caption di una Label nella clipboard tramite Command

[MItaly]

Private Sub Command1_Click()
    Clipboard.Clear
    Clipboard.SetText Label1.Caption
End Sub