VB怎么把鼠标敲成锤子？求指导求代码。。。谢谢你。

单击项目右侧表单的属性，选择鼠标图标，然后选择锤子图标的路径。

如果鼠标在运行或特定的时候变成了锤子，首先将窗体的MousePointer属性设置为99-Custom(自定义图标)。

必要时添加。

form 1 . mous icon = load picture(" d: 1.ico ")'将d:1 . ico更改为图标所在的路径。