La dichiarazione è questa:

Declare Function ChangeDisplaySettingsEx Lib "user32" Alias "ChangeDisplaySettingsExA" (lpszDeviceName As Any, lpDevMode As Any, ByVal hwnd As Long, ByVal dwFlags As Long, lParam As Any) As Long

Adesso la ChangeDisplaySettingsEx esce con esito ok, ma al video non capita nulla, rimane della risoluzione iniziale 1024x78 e non 800x600 come impostato da codice.

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

Grazie