Redimensiones de Controles

[antonio2005pe]

hola muchos preguntaron este codigo sobre resolucciones de formularios, asi que aki esta...

Código:

Public ALTURA, ANCHO, DERECHA, IZQUIERDA, BUCLE

Private Sub Form_Load()
BUCLE = 0
ALTURA = Me.Height
ANCHO = Me.Width
End Sub

Private Sub Form_Resize()
If Me.Height > 2000 Then
    Dim OBJECTO As Object
    Dim RESALTURA, RESANCHO
    If BUCLE > 0 Then
        RESALTURA = ((Val(Me.Height) * 100) / ALTURA)
        RESANCHO = ((Val(Me.Width) * 100) / ANCHO)
        For Each OBJECTO In Controls
            OBJECTO.Height = ((Val(OBJECTO.Height) * RESALTURA) / 100)
            OBJECTO.Width = ((Val(OBJECTO.Width) * RESANCHO) / 100)
            OBJECTO.Top = ((Val(OBJECTO.Top) * RESALTURA) / 100)
            OBJECTO.Left = ((Val(OBJECTO.Left) * RESANCHO) / 100)
        Next OBJECTO
    End If
    BUCLE = BUCLE + 1
    ALTURA = Me.Height
    ANCHO = Me.Width
End If
End Sub