```
Private Sub ScrollBar1_Change()
    ActiveWindow.Zoom = ScrollBar1.Value
End Sub

Private Sub UserForm1_Initialize()
 With ScrollBar1
    .Min = 10
    .Max = 400
    .SmallChange = 1
    .LargeChange = 10
 End With
End Sub

```

I used the above code but get this run time error:

> 
> error 1004(unable to set the zoom property of the window class)
> 
> 
>