FAQ's de VB6

[GeoAvila]

Prugunta:
¿Como puedo hacer que los controles acoplen al Form?
Repuesta:
El ejemplo reponde a la pregunta de como hacer para que los controles ser redimencionen junto con el form les dejo el ejemplo para que lo prueben..

http://www.geoavila.com/vb60/codigos/1/index.html


y aqui otro código por antonio2005p

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
 

nos vemos...