大家好，我们今日继续讲解VBA代码解决方案的第105讲内容：窗体中的鼠标指针形状的自定义方法，我们在操作电脑时，鼠标是我们最常用的硬件，当移动鼠标时会在屏幕上留下痕迹，鼠标在屏幕上的形状并不是一成不变的，我们也可以改变它。
使用对象的MousePointer属性可以自定义鼠标掠过窗体控件时的指针类型，这个属性可以指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型，语法如下：
object.MousePointer [= fmMousePointer]
参数object是必须的，一个有效对象。
参数fmMousePointer是可选的，所需鼠标指针的形状。
fmMousePointerDefault 0标准指针。根据对象来决定指针的图像（默认）
fmMousePointerArrow 1箭头
fmMousePointerCross 2十字线指针
fmMousePointerIBeam 3I 形标
fmMousePointerSizeNESW6斜下的双箭头
fmMousePointerSizeNS 7南北向的双箭头
mMousePointerSizeNWSE8斜上的双箭头
fmMousePointerSizeWE 9东西向的双箭头
fmMousePointerUpArrow10向上键
fmMousePointerHourglass11沙漏
fmMousePointerNoDrop 12在被拖动的对象上有 "Not"符号（有一条斜线的圆）。表示是无效的目标。
fmMousePointerAppStarting 13带沙漏的箭头
fmMousePointerHelp 14带问号的箭头
fmMousePointerSizeAll 15调整所有尺寸的光标（四向箭头）
fmMousePointerCustom 99使用由MouseIcon属性指定的图标
使用由MouseIcon属性指定的自定义图标时，MouseIcon属性为对象指定一个自定义的图标，语法如下：object.MouseIcon = LoadPicture( pathname )
参数object是必须的，一个有效的对象。
参数pathname是必须的，指定包含自定义图标的文件的路径和文件名。
下面我们实测一下我们的代码，如下面所示。
Private Sub UserForm_Initialize()
With Me.TextBox1
.MousePointer = 8
End With
With Me.TextBox2
.MousePointer = 9
End With
End Sub
代码解析：
当用户把鼠标放到窗体的文本框上时，所显示的鼠标指针的类型为自定义图标。
第3行代码设置文本框1的MousePointer属性。
第6行代码将文本框2的MousePointer属性.
下面看运行截图：当鼠标到文本框1时：
当运行到文本框2时：
今日内容回向：
1 如何改变鼠标的形状呢？
2 上面是利用了什么方法来实现的呢？