io farei in questo modo:
Ho messo un'immagine in una picturebox e ne ho determinato le dimensioni in cm.
codice:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
'risoluzione orizzontale in pixel/pollice
Dim hr As Single = PictureBox1.Image.HorizontalResolution
'risoluzione verticale in pixel/pollice
Dim vr As Single = PictureBox1.Image.VerticalResolution
'dimensioni immagine in cm
Dim larghezza As Single = PictureBox1.Image.Width / (hr / 2.54)
Dim altezza As Single = PictureBox1.Image.Height / (vr / 2.54)
End Sub
ciao.