Uygulama GetSystemMetrics - Ekran Çözünürlüğünü Öğrenme ve Ayarlama

#If VBA7 And Win64 Then
    Public Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
    Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
#End If

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Sub Ekran_Cozunurlugu_Degistir()
    Dim x As Long, y As Long, mesaj, onay As Integer
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    mesaj = "Mevcut ekran boyutu " & x & " X " & y & vbCrLf
    mesaj = mesaj & "Çözünürlüğünü değiştirmek ister misiniz ?"
    onay = MsgBox(mesaj, vbExclamation + vbYesNo, "Ekran Çözünürlüğü")
    If onay = vbYes Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
    End If
End Sub