Resolução de tela

Pessoal, estou com um pequeno problema ao alterar a resolução de tela.

Uso este algoritmo para fazê-lo:

**********************************************************

'declaração da api

Private Declare Function EnumDisplaySettings Lib _
        "user32" Alias "EnumDisplaySettingsA" _
        (ByVal lpszDeviceName As Long, ByVal _
        iModeNum As Long, lpDevMode As Any) As _
        Boolean

Private Declare Function ChangeDisplaySettings Lib _
        "user32" Alias "ChangeDisplaySettingsA" _
        (lpDevMode As Any, ByVal dwflags As Long) _
        As Long

Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000

Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

'Sub para trocar a resolução da tela

Public Sub ChangeRes(iWidth As Single, iHeight As Single)
Dim DevM As DEVMODE
Dim a As Boolean
Dim i As Long
Dim b As Long
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub

****************************************************

O código funciona só q tem um porém... se por exemplo a resolução da tela estava 800x600 e mudo, usando o código acima, por exemplo, para 1024x768 os atalhos q estão no desktop ficam desarranjados, mas isso é comum. O problema é q não consigo realocá-los fora da área q antes era de 800x600. Muito complicado para entender?? Olhem:

Tela 800x600:

_____________

| |

|____________|

Tela 1024x768:

______________________

| |

|____________________ |

O q acontece é o seguinte:

______________________

| ___________ |

| | a a | |

| | | |

| |__________| |

| b b b b b |

|____________________ |

A parte vermelha é a tela com resolução 800x600 (antes de executar o código)

A parte azul é tela com resolução 1024x768 (depois de executar o código)

O q acontece depois q utilizo o código q citei é q os atalhos q estavam na tela 800x600 (vermelha) não consigo colocá-los na área azul onde estão as letras "b b b b". Eles, os atalhos, só ficam, e são realocados, na área vermelha. Se eu quiser "puxar" um para a parte onde estão as letras "b b b b", por exemplo, eles não vão.

A questão é: como dá para resolver isso? Tem algum outro código, ou modo, de troca de resolução de tela q não tem este, digamos, "efeito colateral"?

será q ficou claro??

Qq dúvida eu reformulo a pergunta.

obrigado a quem tentar