Start a new project, add a label then Cut and paste the code below in the Form_Load()

Marietta,
Element K Moderator
============================================================

Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
label1 = Str(intWidth) + " x" + Str(intHeight)
End Sub