<code>Dim I As Integer
 
I = 0
While I < List1.ListCount
  If List1.Selected(I) = True Then
    List1.RemoveItem I
  Else
    I = I + 1
  End If
Wend</code>

<code>Dim I As Integer
Dim sText As String
 
sText = ""
For I = 0 To List1.ListCount - 1
  If List1.Selected(I) = True Then
    sText = sText & List1.List(I) & vbCrLf
  End If
Next I
 
Clipboard.Clear
Clipboard.SetText sText</code>