Prova con

codice:
With L_DL.ListItems(1)
   .ForeColor = vbGreen
   For i = 1 To .ListSubItems.Count
      .ListSubItems(i).ForeColor = vbGreen
   Next i
End With
L_DL.Refresh