动起来，才会更精彩
?牐牰迪终飧龉δ芤膊⒉桓丛樱饕且玫郊父鯝PI函数。
?牐犘陆ㄒ桓龃疤澹尤肓礁觥懊睢笨丶–ommandButton），一个用来调用动画鼠标指针，一个用来恢复系统鼠标指针。在窗体中输入如下代码：
?牐燨ption Explicit
?牐燩rivate Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA"（ByVal lpFileName As String）As Long ＇用来调用动画鼠标指针
?牐燩rivate Declare Function GetCursor Lib "user32" As Long ＇用来获得鼠标指针句柄
?牐燩rivate Declare Function CopyCursor Lib "user32" Alias "CopyIcon"（ByVal hcur As Long）As Long
?牐牐в美锤粗剖蟊曛刚刖浔?
?牐燩rivate Declare Function SetSystemCursor Lib "user32"（ByVal hcur As Long，ByVal id As Long）As Long ＇设置鼠标指针
?牐燩rivate Const OCR_NORMAL = 32512
?牐燚im NewCursor As Long
?牐燚im OldCursor As Long
?牐牐д獠糠执胗美瓷鰽PI函数并定义变量
?牐燩rivate Sub Command1_Click（）?煟?
?牐燦ewCursor = LoadCursorFromFile（"1.ani"）??
?牐牐У饔?1.ani动画鼠标指针文件
?牐燨ldCursor = GetCursor（）?煟?
?牐牐У玫绞蟊曛刚氲木浔?
?牐燨ldCursor = CopyCursor（old_cursor）??
?牐牐П４媸蟊曛刚氲木浔?
?牐燬etSystemCursor NewCursor，OCR_NORMAL＇设置新的鼠标指针1.ani
?牐燛nd Sub
?牐燩rivate Sub Command2_Click（）?煟?
?牐燬etSystemCursor OldCursor，OCR_NORMAL
?牐牐Щ指丛吹南低呈蟊曛刚?
?牐燛nd Sub
?牐牳峡烊ナ允钥矗〔还枰嵝岩幌拢灰嘶指丛吹南低呈蟊曛刚耄裨蚣词雇顺稣飧龀绦颍蟊曛刚胍彩嵌模馐本椭荒苤匦缕舳扑慊耍?