scrolbar

Prøv evt. at poste koden her

Den er hentet fra manualen:
\' Make the picture box bigger than the form:
        Picture1.Move Picture1.Left, Picture1.Top, 1.4 * ScaleWidth, 1.2 * ScaleHeight
        \' Place some sample controls in the picture box:
        Dim i As Integer
        For i = 1 To 20
            Load Text1(i)
            Text1(i).Visible = True
            Text1(i).Left = i * Picture1.Height / 20
            Text1(i).Top = Text1(i).Left
        Next
     
End Sub


Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value
     
End Sub

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
     
End Sub

Det første den gør, når jeg scroller er at flytte picture helt op uanset at jeg har placeret billedet længere nede på skærmen