g, _
      ByVal yPixels As Long _
   )
   SetBrushOrgEx hdc, -xPixels And &amp;H7&amp;, -yPixels And &amp;H7&amp;, ByVal 0&amp;
End Sub


Private Sub Class_Initialize()
Dim i As Long
   For i = 0 To 3
      m_lPattern(i) = &amp;HAAAA5555
   Next i
End Sub

Private Sub Class_Terminate()
   Destroy
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><t