[¤À¨É] get¿Ã¹õ¸ÑªR«×

Min

Option Explicit

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Sub ¥Ø«e¿Ã¹õ¸ÑªR«×()
    Dim ScreenHeight, ScreenWidth
    ScreenHeight = GetSystemMetrics(SM_CYSCREEN)  '¨ú±o°ª«×ªº¹³¯À
    ScreenWidth = GetSystemMetrics(SM_CXSCREEN)   '¨ú±o¼e«×ªº¹³¯À
    MsgBox "¥Ø«e¿Ã¹õ¸ÑªR«×¡G" & ScreenWidth & "*" & ScreenHeight
End Sub