Call Class ... End Class Const Dim Do ... Loop Erase Execute Exit For ... Next For Each ... Next Function If On Error Option Explicit Private Property Get Property Let Property Set Public Randomize ReDim Rem Select Case Set Sub While With ... End With '  (comment) Copyright 1999-2004 by Infinite Software Solutions, Inc. All rights reserved. Trademark Information