Skærmopløsnings problem - Haster

Jeg har lige i sidste øjeblik opdaget et stort skærmopløsnings problem ved mit projekt som skal afleveres i morgen...

Problemet er at når jeg starter programmet (og har en skærmopløsning på 1024x768), skal den skifte til en opløsning på 1280x1024, men der dukker fejlen op.

Mit program består af en form, som skal køre i fuldskærm (altså ingen borders), men når jeg starter programmet starter formen op midt på skærmen (Som jeg har sat den til), men med en størrelse på 1024x768, hvilket betyder at den har klippet højre side og bunden af mit program!?!

Jeg bruger denne kode under start af form:
Call ChangeRes(1280, 1024)

Samt i modulen findes dette:

Sub ChangeRes(iWidth As Single, iHeight As Single)

    Dim DevM As DEVMODE
    Dim a As Boolean
    Dim i&
    i = 0


    Do
        a = EnumDisplaySettings(0&, i&, DevM)
        i = i + 1
    Loop Until (a = False)

    Dim b&

    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
    DevM.dmPelsWidth = iWidth
    DevM.dmPelsHeight = iHeight

    b = ChangeDisplaySettings(DevM, 0)

End Sub