Resolucion de pantalla VB6

[thebearprogramer]

Buen día amigos,

Tengo un pequeño problema y espero me puedan ayudar.

Estoy programando una aplicación en excel con VB6 y necesito saber la resolución del monitor del usuario para poder centrar un formulario. Tengo este codigo.

Código:

Private Sub UserForm_Activate()
Dim Ancho As Integer
Dim Alto As Integer
linea = Selection.Row
If (Range("U" & linea).Value) <> "" Then
picContainer.Picture = LoadPicture(Range("U" & linea).Value)
showpicForm.Height = picContainer.Height
showpicForm.Width = picContainer.Width
Ancho = Screen.Width / Screen.TwipsPerPixelX
Alto = Screen.Height / Screen.TwipsPerPixelY
End If
End Sub

El problema esta en que me tira un error en la linea donde esta el ancho diciendo "Se requiere un objeto" ya he buscado por todo el foro y con dios google pero no he conseguido nada.
Aparte de esto la palabra Screen parece que no la reconocer pues si la dejo como screen asi se queda no se cambia la "S" por mayuscula.

Alguno de ustedes sabrá como solucionar esto?

Saludos.

[pakirringem]

Mira este codigo es sencillo y efectivo:

En la sección de declaraciones pones:

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

y en tu botón o en el load de la forma lo siguiente:

Dim largo, alto As Integer

largo = GetDeviceCaps(Acceso.hdc, 8)
alto = GetDeviceCaps(Acceso.hdc, 10)

ahi tienes la resolución, espero te sirva