询问一个关于windows选择集的问题

Sub test()
Dim p1(0 To 2), p2(0 To 2), p3(0 To 2), p4(0 To 2) As Double
Dim ft(2) As Integer, fd(2)
p1(0) = 169.9: p1(1) = 14.8: p1(2) = 0
p2(0) = 244.7: p2(1) = 5.3: p2(2) = 0
p3(0) = 25.2: p3(1) = 14.8: p3(2) = 0
p4(0) = 99.7: p4(1) = 5.3: p4(1) = 0
ft(0) = 60
fd(0) = 0
ft(1) = 67
fd(1) = 1
Set myset1 = ThisDrawing.SelectionSets.Item("selet")
myset1.Select acSelectionSetWindow, p3, p4, ft, fd
myset1.Delete
End Sub