Hi Marco 

Well i figured out what was the problem, i used a command
button other than the VB one, it's called ctbutton from 
dbitechnologies, i don't know why the screen.mousepointer 
doesn't work on it, so i switched back to the vb one and it worked fine.

Thanks very much guys

Michel Medawar.


> 
> From: Marco Straforini <marco.straforini@c...>
> Date: 2001/12/12 Wed PM 09:28:43 GMT+02:00
> To: "professional vb" <pro_vb@p...>
> Subject: [pro_vb] Re: Mouse Pointer
> 
> Michel,
> 
> we need to know what there is in your ProcesscaseX methods.
> It is possible that you call methods of other components that
> interact with the mouse pointer.
> 
> I tried this code in a modal form:
> 
> Private Sub Command1_Click()
>     Screen.MousePointer = vbHourglass
>     Dim i As Long
>     Dim ss As String
>     For i = 0 To &HFFFFF
>         ss = Asc(i)
>     Next
>     Screen.MousePointer = vbDefault
> End Sub
> 
> and it works ok. The cursor change shape and then goes back to normal.
> Is your form in a standard exe project?
> You aren't using DoEvents are you?
> 
> m.
> 
> 
> 
> -----Original Message-----
> From: Michel Medawar [mailto:mmedawar@t...]
> Sent: Wednesday, December 12, 2001 8:46 AM
> To: professional vb
> Subject: [pro_vb] Re: Mouse Pointer
> 
> 
> Hi Walt
> 
> Well here's the code i wrote in my command
> button, i repeat that the form is opened in a
> modal state, the pointer should change to
> hourglass i don't know why it's not changing,
> it's a critical problem.
> 
> 
> 
> Private Sub cmd_Click(Index As Integer)
> On Error GoTo cmd_Click_Error
> 
> Screen.MousePointer = vbHourglass
> 
>     Select Case Index
>         Case 0
>             Processcase1 'opens a recordset then preview the report
>         Case 1
>             Processcase2 'opens a recordset then print the report
> 
>     End Select
> 
> Screen.MousePointer = vbNormal
> 
> 
> cmd_Click_Done:
>   Exit Sub
> 
> cmd_Click_Error:
>     Msgbox Err.Description
> End Sub
> 
> 
>