//Functions needed for working with windows messages
VBSTART
Function LoWord(wInt)
  LoWord = wInt AND &HFFFF&
End Function

Function HiWord(wInt)
  HiWord = wInt \ &H10000 AND &HFFFF&
End Function

Function MAKELPARAM(wLow, wHigh)
  MAKELPARAM = LoWord(wLow) Or (&H10000 * LoWord(wHigh))
End Function
VBEND

//Refresh icon view
SetFocus>Program Manager
Press F5

//Get index of RealPlayer shortcut on desktop
GetListItem>Program Manager,SysListView32,0,RealPlayer,0,0,0,Result,Handle

//Set position of icon.  
//If Align to Grid is on this will slot icon in where it fits best.
//If Align to Grid is off it will place icon at this absolute position. 
Let>xpos=100
Let>ypos=500
VBEval>MAKELPARAM(%xpos%,%ypos%),lparam

//Reposition
Let>LVI_SETITEMPOSITION=4111
LibFunc>user32,SendMessageA,r,Handle,LVI_SETITEMPOSITION,Result,lparam

SRT>ToggleAlignToGrid
  //Code to toggle Align to Grid
  SetFocus>Program Manager
  Press MenuKey
  Send>il
END>ToggleAlignToGrid