Screen Resolution

This just simple code to know what resolution currently used at the monitor. sometimes we need resize the resolution for exactly form at current resolution , here the code

Private Sub Form_Load()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
Text1.Text = ResWidth & "x" & ResHeight
End Sub