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=#.

<p>    Set swView = swDraw.GetFirstView<br>    While Not swView Is Nothing<br>        Set swFirstNote = swView.GetFirstNote<br>        Set swNote = swView.GetFirstNote<br>        ReDim notes(notesTotalCounter)<br>        i = 0<br>        u = 0<br>        While Not swNote Is Nothing</p><p>            If swNote.GetText Like "`*" Then<br>                Set notes(i) = swNote<br>                i = i + 1<br>                Set swAnno = swNote.GetAnnotation</p><p>                loc = swAnno.GetPosition<br>                Dim u As Double<br>                Dim v As Double<br>                v = loc(1)<br>                u = loc(0)<br>                ReDim Preserve notes(i, u, v)<br>                <br>            End If<br>            Set swNote = swNote.GetNext</p><p>        Wend</p>