Per vedere se supera la risoluzione si potrebbe provare:

if picture1.Width > Screen.Width then 'gestisco scroll
if picture1.Height > Screen.Height then 'gestisco scroll ecc.

Ragazzi correggetemi se ho detto una cavolata,ma intereserebbe anche a me risolvere questa cosa!