MousePointer属性用来显示鼠标箭头的形状的。 可在C:/WINDOWS/Cursors 找到这些形状。
常数 值 描述
vbDefault 0 缺省值
vbArrow 1 箭头
vbCrosshair 2 十字线
vbIbeam 3 I 型标
vbIconPointer 4 图标
vbSizePointer 5 尺寸线
vbSizenesW 6 上-左下尺寸线
vbSizeNS 7 垂-直尺寸线
vbSizeNWSE 8 左上-右下尺寸线
vbSizeWE 9 水-平尺寸线
vbUpArrow 10向上箭头
vbHourglass 11沙漏
vbNoDrop 12不允许放下
vbArrowHourglass 13箭头和沙漏；（仅在 32 位 Visual Basic 5.0 中使用）
vbArrowQuestion 14箭头和问号；（仅在 32 位 Visual Basic 5.0 中使用）
vbSizeAll 15 四向尺寸线；（仅在 32 位 Visual Basic 5.0 中使用）
vbCustom 99 通过 MouseIcon 属性所指定的自定义图标
例：
Private Sub Form_Load() MousePointer = 11 Command1.MousePointer = vbArrowQuestionEnd Sub