在ＶＢ５中，鼠标指针通常是由窗体或其他控件的ＭｏｕｓｅＩｃｏｎ
属性来设置，但ＭｏｕｓｅＩｃｏｎ属性不支持彩色光标（＊．ｃｕｒ）和动画光标（＊．ａｎｉ）。因此，要想在程序中使用上述光标，就不得不借助Ｗｉｎｄｏｗｓ
中的ＡＰＩ 函数Ｓｅｔ—ＣｌａｓｓＬｏｎｇ ，该函数的功能是设置和修改窗体中某些属性的值，并返回该属性原来的值。
其格式如下：ＳｅｔＣｌａｓｓＬｏｎｇ ｈｗｎｄ ，ｎＩｎｄｅｘ，ｄｗＮｅｗＬｏｎｇ其中：ｈｗｎｄ
代表要设置光标的窗体或控件的句柄；ｎＩｎｄｅｘ 设置为常数－１２，表示设置光标；ｄｗＮｅｗＬｏｎｇ 代表新的光标文件，可由另一ＡＰＩ
函数ＬｏａｄＣｕｒｓｏｒＦｒｏｍＦｉｌｅ 获得。
设置光标后，在程序结束时，应将光标复原，因此可以将ＳｅｔＣｌａｓｓＬｏｎｇ 返回的原始光标存到变量中，再在窗体的Ｕｎｌｏａｄ
事件中将其还原。具体步骤如下：创建新工程
将如下代码加入到Ｆｏｒｍ１的“通用”｜“声明”中：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＬｏａｄＣｕｒｓｏｒＦｒｏｍＦｉｌｅ
Ｌｉｂ ＂ｕｓｅｒ３２＂Ａｌｉａｓ ＂ＬｏａｄＣｕｒｓｏｒＦｒｏｍＦｉｌｅＡ＂（ＢｙＶａｌ
ｌｐＦｉｌｅＮａｍｅ Ａｓ Ｓｔｒｉｎｇ）Ａｓ Ｌｏｎｇ
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＳｅｔＣｌａｓｓＬｏｎｇ Ｌｉｂ ＂
ｕｓｅｒ３２＂Ａｌｉａｓ ＂ＳｅｔＣｌａｓｓＬｏｎｇＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
Ｌｏｎｇ ，ＢｙＶａｌ ｎＩｎｄｅｘ Ａｓ Ｌｏｎｇ ，ＢｙＶａｌ ｄｗＮｅｗＬｏｎｇ Ａｓ Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
Ｄｉ ｍＮｅｗＣｕｒ Ａｓ Ｌｏｎｇ
Ｄｉ ｍＯｌｄＣｕｒ Ａｓ Ｌｏｎｇ
创建Ｌｏ ａｄ 事件
将如下代码加入到Ｆｏｒｍ１的Ｌｏａｄ 事件中：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
ＮｅｗＣｕｒ ＝ＬｏａｄＣｕｒｓｏｒＦｒｏｍＦｉｌｅ（＂Ｃ：＼
Ｗｉｎｄｏｗｓ＼ａｂｃｄｅ ．ａｎｉ＂）
ＯｌｄＣｕｒ ＝ＳｅｔＣｌａｓｓＬｏｎｇ（ｈｗｎｄ ，－１２，
ＮｅｗＣｕｒ）Ｅｎｄ Ｓｕｂ
创建Ｕ ｎｌｏ ａｄ 事件
将如下代码加入到Ｆｏｒｍ１的Ｕｎｌｏａｄ 事
件中：Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｕｎｌｏａｄ（Ｃａｎｃｅｌ Ａｓ Ｉｎｔｅｇｅｒ）
Ｓｅｔ—
ＣｌａｓｓＬｏｎｇ ｈｗｎｄ ，
－１２，ＯｌｄＣｕｒ
Ｅｎｄ Ｓｕｂ
（浙江省温岭市太平镇兰田新村３—２号陈小勇３１７５００）