) Then lBuildNumber = lBuildNumber Or &amp;H80
   lRevision = (lR And &amp;HFF0000) \ &amp;H10000
   lMinor = (lR And &amp;HFF00&amp;) \ &amp;H100
   lMajor = (lR And &amp;HFF)
   m_bIsNt = ((lR And &amp;H80000000) = 0)
End Sub

Public Sub gErr(ByVal lErr As Long, ByVal sErr As String)
   
   Err.Raise lErr, App.EXEName &amp; ".sGrid", sErr

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 