Gruppe
Dialog
Problem
Wie kann ich während der Laufzeit die Breite einer UserForm einschließlich ihrer Elemente über eine Bildlaufleiste verändern?
ClassModule: frmDynamic
Private Sub cmdDynamic_Click()
Unload Me
End Sub
Private Sub scrDynamic_Change()
Me.Width = scrDynamic.Value + 24
scrDynamic.Width = scrDynamic.Value
lstDynamic.Width = scrDynamic.Value
cmdDynamic.Width = scrDynamic.Value
End Sub
StandardModule: basMain
Sub CallForm()
frmDynamic.Show
End Sub