VB6: GDI/GDI+ based function that draws multiple lines of text in a rotated rectangle

I’m looking for somebody to develop a GDI/GDI+ based function to be used in VB6 that draws multiple lines of text in a rotated rectangle. Name of the function: ================== DrawRotatedMultiLineText Parameters: ========== hDC of target to draw on FontName FontSize FontBold FontItalic FontCharSet FontColor Horizontal Alignment (Left, Center, Right) Vertical Alignment (Top, Middle, Bottom) ReduceToFit (Yes, No) Rotation in degrees X-coordinate of center of rectangle Y-coordinate of center of rectangle Height of rectangle Width of rectangle (Note: If it makes the implementation easier, it would also be possible to pass the coordinates of the four corners of the rectangle, either in twips or pixels.) If parameter ReduceToFit is no, the function should take the text and font-settings as-is, and try to fit as much as possible in the rectangle. Text that doesn’t fit is cropped. If parameter ReduceToFit is yes, the function should try first if the full text fits with the font-settings. If it doesn’t, it should go through a loop, reducing the font-size with 1 point each step until the full text fits, or if the minimum font size is reached. The minimum font size should be taken as a variable that is read from the registry, and set to 4 if the registry key isn’t found. If the full text doesn’t fit with font size 4, the text that doesn’t fit is cropped. The attached PowerPoint slides provide additional info on expected behavior.