Private Sub SubCopyFromListBoxToClipboard()
        Dim i As Long
        For i = 0 To lstBox1.Items.Count - 1
            My.Computer.Clipboard.SetText(lstBox1.Items(i))
 
        Next i
 
    End Sub

Private Sub cmdRSClipboardSenden_Click(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles cmdRSClipboardSenden.Click
SubCopyFromListBoxToClipboard()
    End Sub

mfg Lukas

Beitrag wurde zuletzt am 29.01.10 um 10:23:13 editiert.