Как изменить разрешение рабочего стола?

[A.A.Z.]

Лично я понятия не имею, как это сделать. Подскажите, пожалуйста!
Надо с 1152x864 изменить на 1024x768.

[GoGosha]

Лично я понятия не имею, как это сделать. Подскажите, пожалуйста!
Надо с 1152x864 изменить на 1024x768.

http://bbs.vbstreets.ru/viewtopic.php?t=2367

[Aleksej]

Вот пример:

'*******************************************************
' Функция устанавливает разрешение монитора
' Depth - 4 бит - 16 цветов, 8 бит - 256,16 бит - 65536
'*******************************************************
Public Function SetVideoMode(Width As Long, Height As Long, _
Depth As Long)
Dim dm As DEVMODE
dm.dmPelsWidth = Width
dm.dmPelsHeight = Height
dm.dmBitsPerPel = Depth
dm.dmFields = DM_PELSWIDTH + DM_PELSHEIGHT + _
DM_BITSPERPEL
dm.dmSize = dm.dmPelsHeight
ChangeDisplaySettings dm, 0
End Function