unt
      For i = 1 To iCount
         sKeys = sKeys &amp; m_sKey(i - 1) &amp; Chr$(255)
      Next i
      If Len(sKeys) &gt; 0 Then
         sKeys = left$(sKeys, Len(sKeys) - 1)
      End If
      PropBag.WriteProperty "Keys", sKeys
   End If
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>
</