Solved: scrollbar zoom

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

I showed you that in your last post on this topic.

XLD,

Disregard...I missed it. Thanks