Reply To: Komplex Test

[tom]

Public Declare PtrSafe Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long
Public lHsize As Long, lVsize As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Function ScreenResolution()
‘ lHsize = Breite des Bildschirms in Pixeln
‘ lVsize = Höhe des Bildschirms in Pixeln
lHsize = GetSystemMetrics(SM_CXSCREEN)
lVsize = GetSystemMetrics(SM_CYSCREEN)
End Function

• This reply was modified 3 months, 1 week aktiv. by  tom.
• This reply was modified 3 months, 1 week aktiv. by  tom.