У меня WindowsXP. Пытаюсь изменить разрешение экрана при помощи
следующей программы:

Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Type devmode
dmPelsWidth As Long
dmPelsHeight As Long
dmFields As Long
End Type

Public Function chng_disp()

Dim dm As devmode
Dim retval As Long

dm.dmPelsWidth = 800
dm.dmPelsHeight = 600
dm.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT

retval = ChangeDisplaySettings(dm, 0)

If retval <> 0 Then GoTo err
...

err:
MsgBox ("Ошибка")

End Function

Ошибки не возникает (retval=0), но и разрешение экрана не изменяется.

Подскажите пожалуйста, в чем может быть дело?