I forgot to mention: You can repeat the ElseIf-part as often as you need: If CurBmp.ResolutionX <= 72 Then MsgBox "Very Small Resolution" ElseIf CurBmp.ResolutionX <= 150 Then MsgBox "Small Resolution" ElseIf CurBmp.ResolutionX <= 300 Then MsgBox "Higher Resolution" Else MsgBox "Extreme Resolution" End If Might be also from interest for you: Select Case CurBmp.Mode Case cdrRGBColorImage MsgBox "RGBColorImage" Case cdrBlackAndWhiteImage, cdrGrayscaleImage MsgBox "Non color image" Case Else MsgBox "Not (yet) supported image" End Select Also here you can repeat the Case-Part as often as needed. You also can define a range with a line like Case 1 To 5 ... Case 6 To 8 ...
↧
