Private Sub BTN_INFO_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles BTN_INFO.Click
        If OFD.ShowDialog = DialogResult.OK Then
            Dim pic As Image = Image.FromFile(OFD.FileName)
            Dim W, H As Single
            Dim erg As Integer
            W = pic.Width / pic.HorizontalResolution * 25.421686746987952
            H = pic.Height / pic.HorizontalResolution * 25.421686746987952
            erg = Din(W, H)
 
        End If
    End Sub
 
    Private Function Din(ByVal W As Single, ByVal h As Single) As Integer
        Dim x, y As Single
        Dim XA, YA, erg As Integer
        If W > h Then
            y = W
            x = h
        ElseIf h > W Then
            y = h
            x = W
        End If
        Select Case x
            Case 199.5 To 220.5
                XA = 4
            Case 282.15 To 311.85
                XA = 3
            Case 399 To 441
                XA = 2
            Case 564.3 To 623.7
                XA = 1
            Case 798.95 To 883.05
                XA = 0
        End Select
        Select Case y
            Case 282.15 To 311.85
                YA = 4
            Case 399 To 441
                YA = 3
            Case 564.3 To 623.7
                YA = 2
            Case 798.95 To 883.05
                YA = 1
            Case 1129.55 To 1248.45
                YA = 0
        End Select
        If YA < XA Then erg = YA
        If XA < YA Then erg = XA
        If YA = XA Then erg = XA
        Return erg
    End Function