Alguém sabe de alguma rotina que identifique a resolução do vídeo que se está trabalhando?

obrigado,
Leandro

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


Public Function Resolucao()
Dim ScreenX As Long
Dim ScreenY As Long

ScreenX = GetSystemMetrics(0)
ScreenY = GetSystemMetrics(1)

MsgBox "Resolução do Monitor: " & ScreenX & "x" & ScreenY
End Function