PS The original posting may be found at:
<http://groups.google.com.au/group/microsoft.public.vb.syntax/msg/7675b4d391cc386c?hl=en

I have modified the code as follows:

Public Sub SetHandCursor(bUseHandA As Boolean)
Dim lCursor As Long

lCursor = IIf(bUseHandA = True, IDC_HAND, IDC_ARROW)
SetCursor LoadCursor(0, lCursor)
End Sub