RT，虽然可以通过设置属性来达到，但这似乎不太方便，因为这样要把所有存在的控件的MouseIcon都设置一遍．那么请问怎么整体设置整个程序的光标呢？

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim HCursor As Long
HCursor = LoadCursorFromFile("F:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\C_WAIT05.CUR")

SetClassLong Me.hwnd, -12, HCursor
End Sub

但这只对窗体有效，将鼠标移动到其他控件时，鼠标又变成原样了。这样一个一个控件的设置是不是太麻烦点了。我的意思是，运行这个程序后，只要光标接触到我的程序中的窗体或者控件，光标会变成我预先设置好的光标，一个一个设置好象没有什么效率，而且还会使程序执行起来速度慢了许多。