Cuando comienzas la aplicacion tienes esto para detectar la resolucion que tiene y la cambias a la que quieras:
Public Sub CheckRes()
Dim X As Long, Y As Long
Dim MsgTitle As String
Dim MsgStyle As Long
Dim msg As String
Dim MsgResponse As Long
Y = GetSystemMetrics(0)
X = GetSystemMetrics(1)
If "" & Y & "x" & X <> "1024x768" Then 'Aqui es donde comparas la resolucion
MsgBox "La resolución de su monitor es " & Y & "x" & X & "
Call ChangeRes(1024, 768) 'Aqui asignas la resolucion que quieres
End If
End Sub
Pones esto mismo solo que cambias la resolucion:
Public Sub CheckRes()
Dim X As Long, Y As Long
Dim MsgTitle As String
Dim MsgStyle As Long
Dim msg As String
Dim MsgResponse As Long
Y = GetSystemMetrics(0)
X = GetSystemMetrics(1)
If "" & Y & "x" & X <> "800x600" Then 'Aqui es donde comparas la resolucion
Call ChangeRes(800, 600) 'Aqui asignas la resolucion que quieres
End If
End Sub
Cualquier otra pregunta...
