' Classes/System/Drawing/misc.ab Namespace System Namespace Drawing Enum RotateFlipType RotateNoneFlipNone = 0 Rotate90FlipNone = 1 Rotate180FlipNone = 2 Rotate270FlipNone = 3 RotateNoneFlipX = 4 Rotate90FlipX = 5 Rotate180FlipX = 6 Rotate270FlipX = 7 RotateNoneFlipY = 6 Rotate90FlipY = 7 Rotate180FlipY = 4 Rotate270FlipY = 5 RotateNoneFlipXY = 2 Rotate90FlipXY = 3 Rotate180FlipXY = 0 Rotate270FlipXY = 1 End Enum Enum GraphicsUnit World ' 0 Display ' 1 Pixel ' 2 Point ' 3 Inch ' 4 Document ' 5 Millimeter ' 6 End Enum Enum FontStyle Regular = 0 Bold = 1 Italic = 2 Strikeout = 4 Underline = 8 End Enum Enum TextRenderingHint TextRenderingHintSystemDefault = 0 TextRenderingHintSingleBitPerPixelGridFit TextRenderingHintSingleBitPerPixel TextRenderingHintAntiAliasGridFit TextRenderingHintAntiAlias TextRenderingHintClearTypeGridFit End Enum Enum MetafileFrameUnit Pixel = 2 Point = 3 Inch = 4 Document = 5 Millimeter = 6 Gdi End Enum Namespace Detail Sub ThrowGdiplusException(status As Status) Select Case status Case Ok Exit Sub ' Case OutOfMemory ' Throw New System.OutOfMemroyException("GDI+") Case NotImplemented Throw New System.NotImplementedException("GDI+") ' Case FileNotFoundException ' Throw New System.IO.FileNotFoundException("GDI+") Case Else Throw New System.Exception("GDI+") End Select End Sub End Namespace Sub SetStatus(status As Status) Detail.ThrowGdiplusException(status) End Sub End Namespace End Namespace