Änderung der Bildschirmauflösung per Makro

Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare 

Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Declare 

Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10


Sub Bildschirauflösung_ermitteln()
MsgBox "Ihre Bildschirmauflösung: " & _
vbLf & Bildschirmauflösung()
End Sub




Function Bildschirmauflösung()
Dim lVal As Long
Dim lDc As Long
Dim lHSize As Long
Dim LVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
LVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
Bildschirmauflösung = lHSize & "x" & LVSize
End Function