Vscroll problem...

[CLB]

I have a picture in a pictute box thats to lage for the form... Now i want a vscroll to scroll the picture. How do i do that?

[zak2zak]

May I Comment. I think This Would help!
First U should place the VScroll on left most of Form

Private Sub Form_Resize()
   Picture1.Move 0, 0
   VScroll1.Move Picture1.Width + 30, 0, VScroll1.Width, Me.ScaleHeight
   
   VScroll1.SmallChange = 100
   VScroll1.LargeChange = 300
   VScroll1.Min = 0
   VScroll1.Max = (Picture1.Height - Me.ScaleHeight)
End Sub

Private Sub VScroll1_Change()
   If VScroll1.Value > 0 Then
   Picture1.Top = -VScroll1.Value
   ElseIf VScroll1.Value = 0 Then
   Picture1.Top = 0
   End If
End Sub

Private Sub VScroll1_Scroll()
   If VScroll1.Value > 0 Then
   Picture1.Top = -VScroll1.Value
   ElseIf VScroll1.Value = 0 Then
   Picture1.Top = 0
   End If
End Sub