Bom dia, galera....

Bom, eu estou querendo um código que seja fácil de entender (de preferência) para mudar a resolução do vídeo na hora que eu for executar o meu sistema.

Pois, em todas as máquians, ele terá que rodar com a resolução 800X600.
Eu conseguí, via código, descobrir a resolução atual do monitor, mas não sei como alterar para a esolução que eu quero, e depois, quando o usuário sair, voltar a resolução antiga.
Será que VC´s poderia me ajudar???

Para mudar resolução para 800X600:

Num módulo:

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

No load do forms principal:

Call ChangeRes(800, 600)~

 

Para repor a resolução inicial:

 

 

Com toda certeza. Muito obrigado.....