[AccessD] Mouse pointer

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 
 
Public Const IDC_CROSS = 32515&
 
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long

Function MouseCursor(CursorType As Long)
  Dim lngRet As Long
  lngRet = LoadCursorBynum(0&, CursorType)
  lngRet = SetCursor(lngRet)
End Function
 
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?
 
Roz

-----Original Message-----
From: MastercafeCTV [mailto:mastercafe at ctv.es] 
Sent: 15 May 2003 14:24
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Mouse pointer


Check http://www.mvps.org/access/index.html
<http://www.mvps.org/access/index.html>  you can see some samples and its
application have the main cursor setting. I recommend you download and check
the sample.
 
Regards
 
Juan

-----Mensaje original-----
De: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]En nombre de Roz Clarke
Enviado el: jueves, 15 de mayo de 2003 15:02
Para: 'accessd at databaseadvisors.com'
Asunto: [AccessD] Mouse pointer



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.

TIA 

Roz 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030515/a3ea6e93/attachment-0001.html>