¿Como puedo poner en un control para que me muestre la resolucion que tengo
en la pantalla?
Ejemplo "Resolucion actual 1024 X 768"


EDUARADO OLAZ
=============

Puedes usar la función que te paso
Suponiendo que pones en el formulario la etiqueta lblResolucion
Al cargar el formulario puedes poner

    lblResolución.Caption = ResolucionPantalla()

_____________________________________

Public Declare Function GetSystemMetrics _
            Lib "User32" ( _
            ByVal nIndex As Long) _
            As Long

Public Function PantallaX() As Long
    PantallaX = GetSystemMetrics(0)
End Function

Public Function PantallaY() As Long
    PantallaY = GetSystemMetrics(1)
End Function

Public Function ResolucionPantalla() As String
    ResolucionPantalla = CStr(PantallaX()) _
                    & " x " _
                    & CStr(PantallaY())
End Function
_____________________________________