<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff size=2>OK I
have inserted the sample code into a module and tried to change the mouse
pointer using one of the constants. Nothing happens. Stepping through the code
</FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff size=2>Public
Const IDC_CROSS = 32515&</FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2>Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA"
_<BR> (ByVal hInstance As Long, ByVal lpCursorName As Long) As
Long<BR></FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2>Declare Function SetCursor Lib "user32" _<BR> (ByVal hCursor As
Long) As Long<BR></FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2>Function MouseCursor(CursorType As Long)<BR> Dim lngRet As
Long<BR> lngRet = LoadCursorBynum(0&, CursorType)<BR> lngRet =
SetCursor(lngRet)<BR>End Function</FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff size=2>having
called it as so -> MouseCursor(IDC_CROSS), with a watch on lngRet I'm finding
that the value of lngRet = 0 at all times. I'm inept at API to say the least -
what am I missing here?</FONT></SPAN></DIV>
<DIV><SPAN class=410130714-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><FONT face=Arial><FONT size=2><FONT color=#0000ff><SPAN
class=410130714-15052003>Roz</SPAN><SPAN
class=410130714-15052003></DIV></SPAN></FONT></FONT></FONT>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> MastercafeCTV
[mailto:mastercafe@ctv.es] <BR><B>Sent:</B> 15 May 2003 14:24<BR><B>To:</B>
accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] Mouse
pointer<BR><BR></FONT></DIV>
<DIV><SPAN class=930572113-15052003><FONT face=Arial color=#0000ff
size=2>Check <A
href="http://www.mvps.org/access/index.html">http://www.mvps.org/access/index.html</A> you
can see some samples and its application have the main cursor setting. I
recommend you download and check the sample.</FONT></SPAN></DIV>
<DIV><SPAN class=930572113-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=930572113-15052003><FONT face=Arial color=#0000ff
size=2>Regards</FONT></SPAN></DIV>
<DIV><SPAN class=930572113-15052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=930572113-15052003><FONT face=Arial color=#0000ff
size=2>Juan</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Mensaje original-----<BR><B>De:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>En nombre de </B>Roz
Clarke<BR><B>Enviado el:</B> jueves, 15 de mayo de 2003
15:02<BR><B>Para:</B> 'accessd@databaseadvisors.com'<BR><B>Asunto:</B>
[AccessD] Mouse pointer<BR><BR></FONT></DIV>
<P><FONT face=Arial size=2>Does anyone know how to set a custom mouse
pointer? I want to use the mouse to indicate a drill-down field and none of
the mouse settings listed in the VB help file (normal, hourglass, insert,
resize) are suitable.</FONT></P>
<P><FONT face=Arial size=2>TIA</FONT> </P>
<P><FONT face=Arial size=2>Roz</FONT>
</P></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>