
   PropBag.WriteProperty "FileName", Filename, ""
   Dim sF As New StdFont
   sF.Name = "Tahoma"
   sF.Size = 8.25
   PropBag.WriteProperty "Font", Font, sF
   PropBag.WriteProperty "ScaleMode", ScaleMode, vbTwips
   '
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td></td>
<td>
<p class="center"></p>
</td>
<td></td>
</tr><tr><t