Screen Resolution

i like to get pixle settings (screen resoultion) to use in a application. any suggestion.

Code:

---

Private Sub Form_Load()
Dim w As Integer
Dim h As Integer

    w = Screen.Width / Screen.TwipsPerPixelX
    h = Screen.Height / Screen.TwipsPerPixelY
   
    MsgBox h & "x" & w
End Sub

---