VbIconPointer
MSDN:


但设置后仍然是箭头形状。
这是什么意思？

试了一下，vbIconPointer 确实变回箭头了，百度无结果，
但一篇文章 https://docs.(v=vs.90) 里
提了一句，这个设置值 过期了 ，我猜测在 VB6 里这个设置已过期，只是为了兼容以前的程序而存在。

你看一下你的系统设置里的鼠标形状设置，看看有多少种，感觉没这种鼠标形状存在的图标了。

在XP及以前的系统下测试看一下。

我VM 里是用的是 XP ，这个属性也是无效的。
并且我测试时 XP 不支持定义 真彩图标，比较奇怪。

果然，度娘没有骗我。

参考：https://blog.

然后，当鼠标移到Command1上时，鼠标的形状变成了 “箭头+问号”了。

Windows 10 64位下测试通过。

[此贴子已经被作者于2022-9-11 11:42编辑过]

箭头+问号?

窗体拖入控件: Command1，运行以下代码：

Private Sub Form_Load()
    MousePointer = 11
    Command1.MousePointer = vbArrowQuestion
End Sub

当鼠标在Command1控件上时，请看鼠标指针变化，如下图：

我明明说的是vbIconPointer(值为4)啊！

MousePointer属性用来显示鼠标箭头的形状的。 可在C:\WINDOWS\Cursors 找到这些形状。

C:\WINDOWS\Cursors文件夹可能没有MousePointer = 4 的图标，所以显示了默认图标。因为其它常数都能显示。

在最新的vba中已经没有vbIconPointer(4)了。可能如所说，已经过时被删了。
https://docs.