Har letat men hittar ingenstans hur man skall göra för att kunna
scrolla pictureboxar i en array man gjort i runtime.
Håller på med en förhandsgranskningsfunktion, om det hjälper.

Följande kod användes för att placera ut pictureboxar i runtime.
Om jag nu har placerat flera i runtime får jag inte till att kunna scrolla
till den nedersta om den inte syns på formen.


<code>
Option Explicit
Dim pic As PictureBox

Private Sub Command1_Click()
Set pic = Picture1(Picture1.UBound + 1)
Load pic
pic.Move pic.Index * 100, pic.Index * 100
pic.Move 0, pic.Index * 2300
pic.Print "Picture nummer " & pic.Index
pic.Visible = True
End Sub</code>

Och för att scrolla
<code>
Private Sub Form_Resize()
VScroll1.Move ScaleWidth - VScroll1.Width, ScaleTop, VScroll1.Width, ScaleHeight - HScroll1.Height
HScroll1.Move ScaleLeft, ScaleHeight - HScroll1.Height, ScaleWidth - VScroll1.Width, HScroll1.Height

Scrolling
End Sub

Private Sub Scrolling()

If Picture1(0).Width > (ScaleWidth - VScroll1.Width) Then
HScroll1.Max = Picture1(0).Width - (ScaleWidth - VScroll1.Width)
HScroll1.Enabled = True
Else
HScroll1.Max = HScroll1.Min
HScroll1.Enabled = False
End If

If Picture1(0).Height > (ScaleHeight - HScroll1.Height) Then
VScroll1.Max = Picture1(0).Height - (ScaleHeight - VScroll1.Height)
VScroll1.Enabled = True
Else
VScroll1.Max = VScroll1.Min
VScroll1.Enabled = False
End If

Picture1(0).Move -HScroll1.Value, -VScroll1.Value

End Sub

Private Sub HScroll1_Change()
Scrolling
End Sub
Private Sub VScroll1_Change()
Scrolling
End Sub</code>
=)
Tack på förhand.

kan du utveckla dig lite eller visa kod? det lät ganska kryptiskt...

Har förtydligat lite!

Har lagt upp exempel i filarean:
Programarkivet:Avancerad scrollning

Jo tack fungerar fint!
Jag använder mig av en picturebox som är 11907 x 16840 twips (21 x 29,7 cm ) så får jag runtime error '6', Overflow när jag lägger till 3 stycken i runtime.

trixar och fixar men allt sket sig hur gör man?

Ändra HScroll.Min och VScroll.Min till ett och använd följande kod:
<code>


Private Sub Scrolling()

If Frame.Width > Workspace.ScaleWidth Then
HScroll.Max = 32767
HScroll.Enabled = True
ElseIf HScroll.Enabled Then
HScroll.Max = HScroll.Min
HScroll.Enabled = False
End If

If Frame.Height > Workspace.ScaleHeight Then
VScroll.Max = 32767
VScroll.Enabled = True
ElseIf VScroll.Enabled Then
VScroll.Max = VScroll.Min
VScroll.Enabled = False
End If

Frame.Move -(HScroll.Value * Frame.Width) / 32767, -(VScroll.Value * Frame.Height) / 32767

End Sub
</code>

Toppen Tusen tack!
Det löste allt!