Thanks Paul, but how does this solve the problem? It still relies on the stringshape. (My method did not.) Is it the fact that you're drawing to a buffer then to the main graphic? Greg
> Sub DrawVerticalString(g As graphics, Text1 As String, XPos As Integer, > YPos > As Integer, iScale As Integer=3D1) > Dim StrSh as New StringShape > Dim p as picture > Dim h, w As Integer > StrSh.Text=3DText1 > StrSh.TextFont=3D"Times New Roman" > StrSh.TextSize=3Dapp.DefFontSize*iScale > StrSh.Rotation=3DToRad(270) > StrSh.FillColor=3DRGB(0,0,255) > g.TextFont=3DStrSh.TextFont > g.TextSize=3DStrSh.TextSize > h=3Dg.stringWidth(StrSh.Text) > w=3Dg.textHeight > p=3DnewPicture(w,h,32) > p.graphics.DrawObject StrSh, 3*iScale+w/2, h/2 > g.DrawPicture p, XPos-2*iScale-w/2, YPos-h/2 > End Sub > > _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
