Hey guys,
I am trying to set the x and y positions to an array. I will then sort the array based on those locations. The array will need an i as well as the x and y, so for each i, x=# and y=#.
Set swView = swDraw.GetFirstView While Not swView Is Nothing Set swFirstNote = swView.GetFirstNote Set swNote = swView.GetFirstNote ReDim notes(notesTotalCounter) i = 0 u = 0 While Not swNote Is Nothing If swNote.GetText Like "`*" Then Set notes(i) = swNote i = i + 1 Set swAnno = swNote.GetAnnotation loc = swAnno.GetPosition Dim u As Double Dim v As Double v = loc(1) u = loc(0) ReDim Preserve notes(i, u, v) End If Set swNote = swNote.GetNext Wend