i have this code in a userform scroll bar that adjust the zoom. When I display the userform, how can I display the sliding bar to the correct position relative to the screen zoom?

for example, if the screen resolution is 50%, the scroll bar position should be in the middle of the sliding area.

Private Sub ScrollBar1_Change()
With ActiveWindow
.Zoom = ScrollBar1.Value
Zoom = .Zoom & "%"
End With
End Sub