get monitor resolution?

[farsad]

hello
I'm need a way for get monitor resolution ?
thank

[James Stanich]

'*******************************************************************************
' SCREENSIZE (SUB)
'
' DESCRIPTION:
' DETERMINE SCREEN SIZE
'*******************************************************************************
 
Sub SCREENSIZE()
    
    Dim iWidth As Integer
    
    Dim iHeight As Integer
    
    iWidth = Screen.Width / Screen.TwipsPerPixelX
    
    iHeight = Screen.Height / Screen.TwipsPerPixelY
    
    RESOLUTION = iWidth & "X" & iHeight
 
    ' DO NOT ALLOW ENTRY IF RESOLUTION IS NOT
        ' AT MAXIMUM
        
        If RESOLUTION <> "1024X768" Then
            
            MsgBox "To properly display this application, your video display " & _
                "must be set to 1024x768.  Program CANNOT continue !", _
                vbInformation + vbOKOnly, "Video Display problems"
            
            mdiMain.Timer1.Enabled = True
            
            Exit Sub
            
        End If
    
End Sub