<code>Private Sub Form_Resize()
  With lbox
    .Top = 50
    lox.Left = 50
    .Height = Me.ScaleHeight - franav.Height - 100
    .Width = Me.ScaleWidth - 100
  End Withj
 
  With franav
    .Top = lbox.Height + 50
    .Left = 50
    .Width = Me.ScaleWidth - 100
  End With
End Sub</code>