Public Function CheckImageSize() As Boolean
 
        Dim Result As Boolean = False
        Dim Image As Bitmap = New Bitmap(CD.FileName)
 
 
            If Image.Height <= &H32 Then
                Result = True
            End If
 
        Image.Dispose()
 
        Return Result
 
 
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
 
If CheckImageSize() Then
 
' bildhöhe kleiner oder gleich 50px ok ,mache weiter wie immer
 
Else
 
' bildhöhe ist grösser als 50px, bild verkleinern und dann weiter
 
End If
 
End Sub

 Public Function CheckImageSize() As Boolean
 
        Dim Result As Boolean = False
        Dim Image As Bitmap = New Bitmap(CD.FileName)
 
        If Image.Width < Image.Height Then
            Exit Function
        Else
            If Image.Height <= &H32 Then
                Result = True
            End If
        End If
        Image.Dispose()
 
        Return Result
 
    End Function