'\\Как определить разрешение экрана

' Ширина экрана в пикселях

' Screen.Width / Screen.TwipsPerPixelX

' Высота экрана в пикселях

' Screen.Height / Screen.TwipsPerPixelY

'\\Если нужно определить число цветов дисплея, то можно воспользоваться API:

Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" _

(ByVal hDC As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long

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

Private Declare PtrSafe Function ReleaseDC Lib "user32" _

(ByVal hwnd As Long, ByVal hDC As Long) As Long

Private Const HORZRES = 8

Private Const VERTRES = 10

Private Const BITSPIXEL = 12

Sub Command1()

Dim Deskhwnd As Long

Dim DeskDc As Long

Dim Width As Long

Dim Height As Long

Dim Depth As Long

' Получаем описатель рабочего стола

Deskhwnd = GetDesktopWindow

' Получаем контекст устройства рабочего стола

DeskDc = GetDC(Deskhwnd)

' Получаем ширину экрана

Width = GetDeviceCaps(hDC, HORZRES)

' Получаем высоту экрана

Height = GetDeviceCaps(hDC, VERTRES)

' Получаем цветовую палитру

' (число бит на пиксель)

Depth = GetDeviceCaps(hDC, BITSPIXEL)

' Освобождаем ресурсы

ReleaseDC GetDesktopWindow(), hDC

End Sub