title: How do I detect my display's resolution in VB6?
body: <p>I am using the following code:</p>
  
  <pre><code>Private Sub Form_Load()
      ResWidth = Screen.Width \ Screen.TwipsPerPixelX
      ResHeight = Screen.Height \ Screen.TwipsPerPixelY
      ScreenRes = ResWidth &amp; "x" &amp; ResHeight
      MsgBox (ScreenRes)
  End Sub
  </code></pre>
  
  <p>And several other similar codes I've googled for.  The problem is, I always get a message box saying that my resolution is 1200x1200, although my actual resolution is 1920x1200.  Why am I getting bad results?</p>