鼠标状态变化，真是搞不懂

[dingxm111]

private sub f1()

.....
end if

点击菜单函数
Private Sub menuImport_Click()
me.windowstat=VbArrowHourglass '沙漏状态
call f1()
me.windowstat=0 '缺省状态
end sub
为什么我点击菜单时鼠标状态不会变化换成screen.windowstat也不行，
倒底怎样才能实现在运行f1函数时执鼠标状态为沙漏调用完后恢复正常箭头状态

[jsxyhelu]

把me.windowstat=VbArrowHourglass 加在F1中看一看！

[饮水需思源]

private sub f1()
screen.mousepointer=vbhourglass
.....
.....
screen.mousepointer=vbdefault
end if

[minajo21]

Screen.MousePointer = vbHourglass

[射天狼]

Private Sub menuImport_Click()
Screen.MousePointer = vbArrowHourglass '沙漏
call f1()
Screen.MousePointer = vbDefault '缺省
end sub

[dingxm111]

各位大哥：以上各法均已试过，不凑效呀！
闷！

[viena]

Private Sub menuImport_Click()
me.MousePointer = vbHourglass '沙漏状态
call f1()
me.MousePointer = vbDefault '缺省状态
end sub

[viena]

Private Sub menuImport_Click()
me.MousePointer = vbHourglass '沙漏状态
call f1()
me.MousePointer = vbDefault '缺省状态
end sub

[viena]

Private Sub menuImport_Click()
me.MousePointer = vbHourglass '沙漏状态
call f1()
me.MousePointer = vbDefault '缺省状态
end sub

[pigpag]

DoEvents用一下

Private Sub menuImport_Click()
Screen.MousePointer = vbHourglass '沙漏状态
DoEvents
Call f1()
Screen.MousePointer = vbDefault '缺省状态
End Sub

Screen是VB程序所占屏幕，包括菜单区。Me不包括菜单区，只包括客户区。