Inserendo cio' che hai detto ricevo:
ERRORE DI SINTASSI (?!)


---------------------------------------------

Private Sub Command2_Click()
CommonDialog1.CancelError = True
OnError GoTo ANNULLA

CommonDialog1.ShowOpen
Picture11.Picture = LoadPicture(CommonDialog1.filename)
Picture11.AutoSize = True
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture11.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture11.ScaleWidth, Picture11.ScaleHeight

ANNULLA:
OnError GoTo 0
End Sub
------------------------------