ins(m_colButtons, sKey) Then
      gErr 5
   ElseIf (IsNumeric(sKey)) Then
      gErr 4
   Else
      Dim btnInt As New cButtonInt
      btnInt.fInit sKey
      m_colButtons.Add btnInt, sKey
      Set ButtonAdd = btnInt
   End If
End Function

</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><