I currently have this in a model:

Code:
Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

' Check whether screen resolution is set to 640x480
' Returns True if the resolution is at 640x480 else
' False is returned
Public Function GetScreenResolution640x480() As Boolean
Dim lTemp As String
' Temporary string to hold returned screen
' resolution
lTemp = GetSystemMetrics(SM_CXSCREEN) & "x" & GetSystemMetrics(SM_CYSCREEN)
' Call the API function twice to return
' screen size for each axis as format into
' the temporary string
If lTemp = "640x480" Then
  ' Check whether resolution is set to 640x480
  GetScreenResolution640x480 = True
  ' True
Else
  GetScreenResolution640x480 = False
  ' False
End If
End Function


and in the form load it says:

Code:
If GetScreenResolution640x480 = True Then
end
End If


now is there a simple command that changes there screen to 800 X 600

or do I have to use what I downloaded from vb world

thanks in advance