Ændring af skærmopløsning

Hej eksperter, Jeg er i gang med et skrive kode til at ændre skærmopløsning. Men jeg har brug for hjælp, hvordan får man iHoriz = 1024 og iVert = 768 ?

Dim sComp
Dim iHoriz, iVert

sComp = "."
Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController")
For Each objItem In colItems
    If objItem.CurrentHorizontalResolution <> "" Then
        iHoriz = objItem.CurrentHorizontalResolution
     
    End If
    If objItem.CurrentVerticalResolution <> "" Then
        iVert = objItem.CurrentVerticalResolution
       
    End If
Next

If iHoriz < 1024 And iVert < 768 Then