¿Como saber la resolución de pantalla del usuario?

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const SM_CXSCREEN = 0 'X Size of screen
Const SM_CYSCREEN = 1 'Y Size of Screen

Private Sub Form_Load()
    MsgBox "Resolucion " & Str$(GetSystemMetrics(SM_CXSCREEN)) & "x" & Str$(GetSystemMetrics(SM_CYSCREEN))
End Sub