Demo Slider (Schieberegler)

Private Sub UserForm_Initialize()

  With Me
    With .Slider1
      .Max = Me.ListBox1.Width * 2
      .SelStart = .Max / 2
    End With

    With .ListBox1
      .BorderColor = RGB(127, 157, 185)
      .AddItem "Hans Magnus Enzensberger"
      .AddItem "Irmgard Waltraut Schmidt"
      .AddItem "Karl Müller Lüdenscheid"
    End With

    With .ListBox2
      .BorderColor = RGB(127, 157, 185)
      .AddItem String(30, "a")
    End With
  End With

End Sub

Private Sub Slider1_Scroll()
  With Me
    .ListBox1.Width = .Slider1
    .ListBox2.Left = .ListBox1.Width + 15
    .ListBox2.Width = Me.Width - .ListBox1.Width - 30
  End With
End Sub

Private Sub cmbCancel_Click()
  Unload Me
End Sub

'-----------------------------------------------------------
'Microsoft Slider Control, version 6.0
'-----------------------------------------------------------
'zusätzliche Steuerelemente einbinden:
'   das Fenster "Werkzeugsammlung" muß sichtbar sein
'   Menü: Ansicht/Werkzeugsammlung

'dann über Menü: Extras/zusätzliche Steuerelemente
'   aus dem Fenster "weitere Steuerelemente"
'   den Eintrag: Microsoft Slider Control, version 6.0
'   anklicken und auf OK klicken

'in der Werkzeugsammlung:
'   die Werzeugsammlung hat jetzt ein zusätzliches Symbol (Slider)
'   Symbol anklicken und in der UserForm aufziehen...

'Hinweis:
'   Versionsangaben können je nach Office-Version variieren.
'-----------------------------------------------------------