yle = EVPRGInset
   m_oBackColor = CLR_INVALID
   m_oBarColor = CLR_INVALID
   m_oBarForeColor = &amp;HFFFFFF
   m_eBarPictureMode = EVPRGTile
   m_eBackPictureMode = EVPRGTile
   m_lMax = 100
   m_eTextAlignX = EVPRGCenter
   m_eTextAlignY = EVPRGVCenter
   Set m_cMemDC = New pcMemDC
   Dim fnt As New StdFont
   fnt.Name = "Tahoma"
   fnt.Size = 8
   Set Font = fnt
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="#C2