Const POS_ICONS = &H2
Const POS_DESKTOPITEMS = &H4

Set sys = CreateObject("UltraMon.System")
sys.RestorePositions POS_ICONS Or POS_DESKTOPITEMS