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
