Visual Basic - Visualizar a toda pantalla aplicación de 640 x 480

Hola, tengo desarrollado un programa en VB5 que trabaja con muchos gráficos de fondo y todas las pantallas están diseñadas a 640x480 pixel, me gustaría cambiar el programa a 800x600 pero eso supone modificar todas las pantallas, lo cual es muchísimo trabajo. La pregunta es : ¿puedo hacer que cuando se ejecute mi programa, siempre aparezca a pantalla completa?, es decir, ¿puedo cambiar la resolución de la pantalla por código?, ¿existe alguna manera de imitar al Flash, cuando se le indica visualizar a pantalla completa?.

Muchas Gracias

para hacer que ocupe la pantalla completa, debes poner en el suceso LOAD de los formularios que quieres que se inicien en pantalla completa, el siguiente código:

windowstate = 2

con éste simple código, harás que se maximize automáticamente el formulario que se está cargando en tu aplicación.

Atte. Señor Ambrikan.

Con este codigo podras cambiarla
la anterior respuesta vale hongo
ese no es visualmaniaco
espero te sirva
nota:
esto es una API

Const CCDEVICENAME = 32
Const CCFORMNAME = 32

Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Const CDS_UPDATEREGISTRY = &H1
Const CDS_TEST = &H4
Const DISP_CHANGE_SUCCESSFUL = 0
Const DISP_CHANGE_RESTART = 1

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Dim dev As DEVMODE
Dim i, resultado1, resultado2 As Long
Dim Resul As Boolean

Private Sub Command1_Click()

dev.dmPelsWidth %