I have a form with a lot of small imageboxes.....how do I put scroll bars so whe

The following code should get you started.'Add a vertical ScrollBar to the form
Dim oldPos as Integer
private Sub Form_Load()
Dim iFullFormHeigth as Integer
Dim iDisplayHeight as Integer
'Change the values bellow to fit your need.
iFullFormHeigth = 6000
iDisplayHeight = 4000

me.Height = iDisplayHeight

With VScroll1
.Height = me.ScaleHeight
.Min = 0
.Max = iFullFormHeigth - iDisplayHeight
.SmallChange = Screen.TwipsPerPixelY * 5
.LargeChange = .SmallChange * 2
End With
End Sub
private Sub ScrollForm()
Dim ctl as Control
for Each ctl In me.Controls
If Not (TypeOf ctl is VScrollBar) And _
Not (TypeOf ctl is CommandButton) then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
next
oldPos = VScroll1.Value
End Sub

private Sub VScroll1_Change()
Call ScrollForm
End Sub
private Sub VScroll1_Scroll()
Call ScrollForm
End Sub

Help us improve our answers by rating them.

I think you can continue with the design you have but make the appropriate changes.

Help us improve our answers by rating them.

what is ifullformheight and idisplayheight?
i dont think i like scroll bars hehe

you know...I did put the scroll bar in the form. But I think I am getting my form height and display height messed up somewhere. And it seems to be acting funky.

this is the code that i currently have

option Explicit

Dim oldPos as Integer

private Sub Form_Load()
img_enlargepic.Move 0, 0

Dim iFullFormHeight as Integer
Dim iDisplayHeight as Integer
'Change the values bellow to fit your need.
iFullFormHeight = frm_enlargepic.Height + lbl_header.Height
iDisplayHeight = 3000
'me.Height = iDisplayHeight

With vsb_enlargepic
.Top = 0
'.Left = frm_enlargepic.Width
.Height = frm_enlargepic.ScaleHeight
.Min = 0
.Max = iFullFormHeight - iDisplayHeight
.SmallChange = Screen.TwipsPerPixelY * 5
.LargeChange = .SmallChange * 2
End With

End Sub

private Sub ScrollForm()
Dim ctl as Control
for Each ctl In me.Controls
If Not (TypeOf ctl is VScrollBar) And _
Not (TypeOf ctl is CommandButton) then
ctl.Top = ctl.Top + oldPos - vsb_enlargepic.Value
End If
next
oldPos = vsb_enlargepic.Value
End Sub
private Sub vsb_enlargepic_Change()
Call ScrollForm
End Sub

private Sub vsb_enlargepic_Scroll()
Call ScrollForm
End Sub

'Several changes were made. Copy and paste the following code to the appropriate form.
option Explicit
Dim oldPos as Integer
private Sub Form_Activate()
img_enlargepic.Move 0, 0
oldPos = 0
Dim iFullFormHeight as Integer
Dim iDisplayHeight as Integer
'Change the values bellow to fit your need.
iFullFormHeight = img_enlargepic.Height
Change the following value if needed.
iDisplayHeight = 3000
me.ScaleHeight = iDisplayHeight
me.Width = img_enlargepic.Width + vsb_enlargepic.Width + 50
With vsb_enlargepic
.Top = 0
.Height = iDisplayHeight
.Left = me.ScaleWidth - .Width - 20
.Min = 0
.Max = iFullFormHeight - iDisplayHeight
.SmallChange = Screen.TwipsPerPixelY * 5
.LargeChange = .SmallChange * 2
End With
End Sub

private Sub ScrollForm()
Dim ctl as Control
If vsb_enlargepic.Value = vsb_enlargepic.Min then oldPos = 0
for Each ctl In me.Controls
If Not (TypeOf ctl is VScrollBar) And Not (TypeOf ctl is CommandButton) then
ctl.Top = ctl.Top + oldPos - vsb_enlargepic.Value
End If
next
oldPos = vsb_enlargepic.Value
End Sub

private Sub vsb_enlargepic_Change()
Call ScrollForm
End Sub

private Sub vsb_enlargepic_Scroll()
Call ScrollForm
End Sub

Help us improve our answers by rating them.