ho fatto questo x le jpeg, x le tiff nn saprei, vedo se trovo quelkosa in questi giorni ciao.

codice:
Image1.Picture = LoadPicture("c:\1.jpg")
altezza = Image1.Width / 15
larghezza = Image1.Height / 15
Label1.Caption = altezza & " pixel - " & larghezza & " pixel"