Lots of coffee this morning and a rush of blood to the head and I thought this up. Seems to work ok...
Dim strPicIDs As String = ""
For Each item As DataListItem In DataList1.Items
If item.ItemType = ListItemType.Item OrElse item.ItemType = ListItemType.AlternatingItem Then
Dim DeleteCheckBox As CheckBox = DirectCast(item.FindControl("DeleteCheckBox"), CheckBox)
Dim picID As Label = DirectCast(item.FindControl("picID"), Label)
If DeleteCheckBox IsNot Nothing Then
If DeleteCheckBox.Checked = True Then
strPicIDs += picID.Text + ","
End If
End If
End If
Next