Private Sub scrDynamic_Change() Me.Width = scrDynamic.Value + 24 scrDynamic.Width = scrDynamic.Value lstDynamic.Width = scrDynamic.Value cmdDynamic.Width = scrDynamic.Value End Sub