dimensioni immagine (picture) vb6

[Melly]

proprio non capisco

io devo avere un'immagine che ha al massimo una dimensione di 10 X 4 cm

Image2.Picture = LoadPicture(Txt_patfoto.text)
Me.ScaleMode = 7
If Image2.Picture.Width > 10 Or Image2.Picture.Height > 4 Then
    MsgBox "No"
    Image2.Picture = Nothing
End If
Me.ScaleMode = 1

cosa c'è di sbagliato? :master: