chkDocs.Items.Add(Environment.GetFolderPath(Environment.SpecialFolder.Desktop))

Private Sub chkDocs_SelectedIndexChanged(sender As System.Object, e As _
  System.EventArgs) Handles chkDocs.SelectedIndexChanged
        For Each item As Object In chkDocs.CheckedItems
            Größe += Foldersize(item)
            lblGröße.Text = "Größe der ausgewählten Dateien :" & FormatFileSize( _
              Größe)
            lblGröße.Refresh()
        Next
End Sub

MFG Gizmo