Visual Basic.NET - RESOLUCION DE PANTALLA

TENGO UNA APLICACION QUE SE DESARROLLO EN UNA PC CON UN MONITOR DE 17PULGADAS,AL MOMENTO DE LA INSTALACION DE LA APLICACION;LA APLICACION SE INSTALO EN UN MONITOR DE 14 PULGADAS,CUANDO LA APLICACION SE EJECUTA,EL FORMULARIO NO SE MUESTRA EN SU TOTALIDAD QUEDANDO ALGUNOS BOTONES POR FUERA DE LA APLICAION,ME HE IDO A LAS PROPIEDADES DEL FORMULARIO Y EL PROPIEDAD SIZE LE CAMBIADO EL WIDTH Y EL HEIGHT PERO SE SIGUE MOSTRANDO EL FORMULARIO INCOMPLETO.
SI ALGUIEN CONOCE LA MANERA DE SOLUCIONAR ESTE PROBLEMA SE LO AGRADECERIA.


ATT: WILSON FONTANILLA

porque no pruebas cambiarle la propiedad de startposition a center y windows state a maximizado y cambiale las propiedades del width y high a menor...

Hola tengo este codigo que cambia la resolucion, automaticamente cuando abres tu aplicacion............

Abres el cmd de windows, vas hasta la carpeta
C:\Archivos de programa\Microsoft Visual Studio 8\SDK\v2.0\Bin\

luego ejecutas esto desde el cmd dentro de bin: tlbimp.exe c:\Windows\System32\dx7vb.dll
y te creara el DxVBLib.dll dentro de la carpeta
C:\Archivos de programa\Microsoft Visual Studio 8\SDK\v2.0\Bin\

Entonces es hora de referenciarlo desde el visual studio........

Imports DxVBLib

Public dd As DxVBLib.DirectDraw7
Public dx As New DxVBLib.DirectX7
Dim x As Integer
Public ddsd As DxVBLib.DDSURFACEDESC2
Public DisplayModesEnum As DxVBLib.DirectDrawEnumModes
Public INFOSCREEN As Integer

Public Sub CambiarResolucion()
Dim i As Integer
dd = dx.DirectDrawCreate("") 'create the direct draw object
DisplayModesEnum = dd.GetDisplayModesEnum(DxVBLib.CONST_DDEDMFLAGS.DDEDM_DEFAULT, ddsd) 'create enum object
x = DisplayModesEnum.GetCount 'get the count
For i = x To 1 Step -1
DisplayModesEnum.GetItem(i, ddsd) 'the supported resolution
Select Case ddsd.lWidth
Case "1400"
dd.SetDisplayMode("1400", "1050", 32, 0, CONST_DDSDMFLAGS.DDSDM_DEFAULT) 'set the display mode
INFOSCREEN = 1400
Case "1280"
dd.SetDisplayMode("1280", "1024", 32, 0, CONST_DDSDMFLAGS.DDSDM_DEFAULT) 'set the display mode
INFOSCREEN = 1200
Case "1024"
dd.SetDisplayMode("1024", "768", 32, 0, CONST_DDSDMFLAGS.DDSDM_DEFAULT) 'set the display mode
INFOSCREEN = 1024
Case "800"
dd.SetDisplayMode("800", "600", 32, 0, CONST_DDSDMFLAGS.DDSDM_DEFAULT) 'set the display mode
INFOSCREEN = 800
End Select
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CambiarResolucion()
End Sub