redimensionner un composant suivant la taille de la fenêtre ?

Bonjour,
je suis sous VB6, et je me suis rendu compte que cette version ne gère pas la proprité dock que l'on a sur VB.Net.
Cette propriété dock est bien sympa car elle permet d'agrandir les composants aux mêmes proportions que le Form.

Est ce qu'il est possible de retrouver cette fonctionnalité avec VB6, SVP ?

benland

Merci beaucoup Darksidious , c'est exactement ce qu'il me fallait!
Et puis je n'avais pas besoin de cherchais puiske tu étais là

benland

Puis pour ce qui aurait le même problème que moi , je vous donne la source magique qui redimensionne tout proportionnellement à la taille de votre Form:

Public Sub RedimForm()
    Dim Feuille As Form
    Set Feuille = Screen.ActiveForm
    If (Feuille.WindowState = vbMinimized) Then
        Exit Sub
    End If
    Static Longueur As Long
    Static Hauteur As Long
    Dim PropLongueur As Single
    Dim PropHauteur As Single
    If ((Longueur > 0) And (Hauteur > 0)) Then
        PropLongueur = Feuille.Width / Longueur
        PropHauteur = Feuille.Height / Hauteur
        Dim Ctrl As Control
        On Error Resume Next
        For Each Ctrl In Feuille.Controls
            Ctrl.Left = CInt(Ctrl.Left * PropLongueur)
            Ctrl.Top = CInt(Ctrl.Top * PropHauteur)
            Ctrl.Width = CInt(Ctrl.Width * PropLongueur)
            Ctrl.Height = CInt(Ctrl.Height * PropHauteur)
        Next
        On Error GoTo 0
    End If
    Longueur = Feuille.Width
    Hauteur = Feuille.Height
End Sub

Bien entendue cette procédure doit être appelé dans l'évènement:  Private Sub Form_Resize()

benland