Resolucion de pantalla

"ARKO" preguntó:

cual es el codigo para q apareccan por ej si un monitor
esta a 800x600 , en un texbox 800 y en otro 600

Hola:

El siguiente ejemplo te calculará el ancho y alto de la pantalla en píxeles:

Option Explicit

Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Command1_Click()

Const HORZRES As Long = 8
Const VERTRES As Long = 10

' Ancho de la pantalla en píxeles
Text1 = GetDeviceCaps(Form1.hdc, HORZRES)

' Alto de la pantalla en píxeles
Text2 = GetDeviceCaps(Form1.hdc, VERTRES)

End Sub

Un saludo.

Enrique Martínez
[MS MVP - VB]