//Il sender è ovviamente chi scatena l'evento, indi l'ImageButton
 Dim a As ImageButton = sender 
//Se vuoi solo l'ID
sDim imageID as String = a.ID
//Risalgo di livello: il primo "padre" è la TableCell che contiene inq eusto caso l'ImageButton e la ddl
//Il secondo livello (il "nonno"...) è il tuo dataItem
Dim dgi As DataGridItem = a.Parent.Parent 
//Puoi fare la stessa cosa con un cast diretto:
Dim dgi As DataGridItem = CType(sender, ImageButton).Parent.Parent
//non ti resta che utilizzare le proprietà dei dataItem (ad esempio l'indice)        
Dim conta As Int16 = dgi.ItemIndex