Dim iWidth%, iHeight% 
 iWidth = Screen.Width / Screen.TwipsPerPixelX 
 iHeight = Screen.Height / Screen.TwipsPerPixelY 
 
 MsgBox "Résolution : " & iWidth & " x " & iHeight

public Size GetScreenSize() 
{
	return Screen.PrimaryScreen.Bounds; 
}

Public Function GetScreenSize() As Size 
	Return Screen.PrimaryScreen.Bounds
End Function

Dimension tailleEcran = java.awt.Toolkit.getDefaultToolkit().getScreenSize();
int hauteur = (int)tailleEcran.getHeight();
int largeur = (int)tailleEcran.getWidth();
JOptionPane.showMessageDialog(null,"Votre résolution est "+largeur+"x"+hauteur);

#define CX_SCREEN GetSystemMetrics(SM_CXSCREEN)            //Largeur
#define CY_SCREEN GetSystemMetrics(SM_CYSCREEN)            //Hauteur

// correspond au ::GetSystemMetric() du C
ResHorizontale = SysMétrique(metCxEcran)
ResVerticale     = SysMétrique(metCyEcran)

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Public Function ScreenResolution() As String
    Dim Largeur As Long, Hauteur As Long
Largeur = GetSystemMetrics(SM_CXSCREEN)
Hauteur = GetSystemMetrics(SM_CYSCREEN)
ScreenResolution = "Le mode vidéo est :  " & Largeur & " x  " & Hauteur
End Function
Private Sub EXEMPLE()
    MsgBox ScreenResolution
End Sub

var x=screen.Width;
var y=screen.Height;
var resolution=x+" X "+y;

Private Const SM_CXVIRTUALSCREEN    As Long  = &H4E
Private Const SM_CYVIRTUALSCREEN    As Long  = &H4F
Public Type POINTAPI
    X           As Long
    Y           As Long
End Type
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'
Public Function GetScreensSize() As POINTAPI
    GetScreensSize.X = GetSystemMetrics(SM_CXVIRTUALSCREEN) *  Screen.TwipsPerPixelX
    GetScreensSize.Y = GetSystemMetrics(SM_CYVIRTUALSCREEN) *  Screen.TwipsPerPixelY
End Function