Control HScroll

[komodo]

Conseguido, lo he arreglado de la siguiente manera:
slide.Min = 0
slide.Max = fslide.Width / 1000
slide.LargeChange = Imagefoto(0).Width

Private Sub slide_Change()
fslide.Left = lnFrameTop - (slide.Value * (f_fotos.Width / 20))
End Sub

Un saludo