OrderIconDesk

Declare Function ArrangeIconicWindows Lib "User" _
(ByVal hWnd As Integer) As Integer

Declare Function GetDesktopWindow Lib "User" () As Integer

'Utilizzo:


Dim DeskHandle As Integer
Dim Ret As Integer

DeskHandle = GetDesktopWindow()
Ret = ArrangeIconicWindows(DeskHandle)