scusate, mi rispondo da solo:
http://www.abc.se/~m9071/lss/
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (Byval nIndex As Long) As Long
\' This class provides information about the screen resolution of the
\' client machine.
\'
\' Example:
\' Dim resolution As New ScreenResolution
\' Messagebox resolution.X & " x " & resolution.Y, 64, "Screen resolution"
Public Class ScreenResolution
Public Property Get X As Long
X = GetSystemMetrics(SM_CXSCREEN)
End Property
Public Property Get Y As Long
Y = GetSystemMetrics(SM_CYSCREEN)
End Property
End Class
Andrea Ferro - Lotus Notes Developer - www.work.it
|