[VB6] Risoluzione schermo 19"

[LMondi]

Oregon, grazie per la risposta.
Mi è capitato recentemente un errore su un programma che non riconosceva la risoluzione 1024x768 su un monitor a 19" - anche se la ris. era impostata correttamente; in tal caso usavo la costante 15.
Ho modificato il codice così, cosa ne dici, è corretto:

Public Function CheckScreenSize(pixelWidth As Long, pixelHeight As Long) As Boolean
   
    Dim lngTwipsX As Long
    Dim lngTwipsY As Long

    pixelWidth = Screen.Width / Screen.TwipsPerPixelX
    pixelHeight = Screen.Height / Screen.TwipsPerPixelY

'Verifica delle dimensioni schermo:
    If pixelWidth >= 1024 And pixelHeight >= 768 Then
        CheckScreenSize = True
    Else
        CheckScreenSize = False
    End If
    
End Function

Fammi sapere.