Vabbè riscrivo tutto:

Metti un controllo Picture (Picture1), una Scrollbar verticale (Vscroll1) e una scrollbar orrizzontale (HScroll1).

Poi inserisci questo codice nel form:

codice:
'Variabile privata del form che cotiene l'immagine
dim Pic as stdPicture

'Routine per inserire la immagine
'Parametri: il percorso del file
Private Sub CambiaImmagine (Persorso as string)

'Carica l'immagine dal file
Pic = LoadPicture(Percorso)
'La mette nel controllo picture
Picture1.Picture = Pic

'Cambia i valori delle scroll
VScroll1.Min = 0
If Pic.Height > Picture1.Height
    VScroll1.Max = Pic.Height - Picture1.Height
    VScroll1.Visible = True
Else
    VScroll1.Visible = False
End If

HScroll1.Min = 0
If Pic.Width > Picture1.Width
    HScroll1.Max = Pic.Width - Picture1.Width
    HScroll1.Visible = True
Else
    HScroll1.Visible = False
End If

'Fine subroutine
End Sub


'Nell' evento Change delle scrollbar
Private Sub VScroll1_Change()
Picture1.PaintPicture(Pic,0,0,Picture1.Width,Picture1.Height,HScroll1.Value,VScroll1.Value)
End Sub

Private Sub VScroll1_Change()
Picture1.PaintPicture(Pic,0,0,Picture1.Width,Picture1.Height,HScroll1.Value,VScroll1.Value)
End Sub
Spero di non aver sbagliato niente...