问一个更改鼠标光标的问题!

Question

我的一个程序,点击一个菜单,就会弹出一个窗体,但这个窗体在启动的时候要加载一些东西
所以启动得比较慢,所以我希望在点击到弹出窗体这段时间内将鼠标的光标改为忙的状态
要求不管移到什么控件上都是忙的状态(好像光标的改变对应相应的控件)
谢了.

Answer 1

Private Sub Form_Load()
Me.Show
Me.MousePointer = 11代码Me.MousePointer = 0
End Sub

Answer 2

Me.MousePointer = vbHourglass
 frmMain.Show
 Me.MousePointer = 0

Answer 3

以上的动作要在MDI窗体的菜单Click事件中。

Answer 4

'Form1
Option ExplicitPrivate Sub Command1_Click()
    Form2.Show
End Sub'Form2
Option ExplicitPrivate Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    Sleep 2000
    Screen.MousePointer = vbDefault
End Sub