Dim x
x = playlist.getselection()
tot = ubound(x,1) + 1
 
for i = 1 to tot / 2
  playlist.swapindex x(i).position, x(tot-i).position
next
 
quit