Unlimitted scroll bar of a picture box with.in a picture box

[d_hawk023]

Does anyone know how to have an unlimitted scroll bar?..
Cause i can only make it until 32767 twips.
I need to increase it to have larger work space.

Or can someone tell me the algorithm of zooming in/out a picture box inside a picture box?..i really need a large workspace cause im doing Critical path method with 1000 activities to fill in..

[LaVolpe]

The max value of a VB scrollbar is limited to 32767.
You didn't say what the scrollbar relates to: picturebox contents or the picturebox left/top properties for example: I'm assuming you have a picturebox in a picutrebox, or an image control within a picturebox. If that's true then change your picturebox's scalemode to pixels. This will give you 32767 pixels which is far larger than the screen (quite a large workspace indeed).
BTW: 1 twip ~ 15 pixels

[Stupidiot]

For example: If You need to set 100000 as value

You can double the value of scroll bar like this:

Dim x As Long

Private Sub Command1_Click()
MsgBox x
End Sub

Private Sub Form_Load()
VScroll1.Max = 10000
End Sub

Private Sub VScroll1_Change()
x = VScroll1.Value
x = x * 1000 / 100
'Picture1.Top = x
End Sub