Update Application.vb

converting from list to set
so we only count distinct constructs