buenas, pues ando en esas, necesito calcular el tamaño de cada monitor donde se ejecute mi aplicacion, para que muestre a la misma altura un formulario, osea que muestre tanto en un monitor de 15 pulgadas como en uno de 17 la aplicacion en el mismo sitio de la screen, ( 15 y 17 pulagadas lo puse como ejemplo de + y - ) pues eso es todo, salu2. ;)
ancho=screen.width / screen.twipsperpixelx
alto=screen.height / screen.twipsperpixely
Eso considerando que tienes el scalemode a twips te dará la resolución actual.
Bueno, lo que te ha dicho LuckyMonkey, "metido" en una función que devuelva una string procesada con la resolución y asegurandonos que está bien el scalemode sería algo así:
Public Function ObtenerResolucion(Formulario as Form) As String
Formulario.Scalemode = vbTwips 'Ponemos el scalemode a twips
'Calculos
Ancho = Screen.Width / Screen.Twipsperpixelx
Alto = Screen. Width / Screen.Twipsperpixely
'Devolvemos el valor
ObtenerResolucion = "Resolución: " & Ancho & " x " & Alto & " píxeles"
End Function
Un saludo