Private Sub Form_Activate()
    ResWidth = Screen.Width Screen.TwipsPerPixelX
    ResHeight = Screen.Height Screen.TwipsPerPixelY
    ScreenRes = ResWidth & " x " & ResHeight
    Print ScreenRes
End Sub





Source Page : http://www.mentalis.org/tips/tip045.shtml
이 게시물을...