• Home
 · 
• Windows System Services
 · 
• Determine screen resolution

Determine screen resolution

Determine screen resolution

Rate Determine screen resolution

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + vbCrLf + vbCrLf + Str$(intWidth) + " x" + Str$(intHeight), 64, "Info"