当然可以，MousePointer属性就是设置鼠标指针形状的属性，有0～98种可以选择，如果这么多种你还不满意，就将其属性设置为99，然后将MouseIcon属性选择一个以.ico或.cur为扩展名的图标就行了，那个图标就是你鼠标的形状。
成都创新互联公司专注于乌鲁木齐网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供乌鲁木齐营销型网站建设，乌鲁木齐网站制作、乌鲁木齐网页设计、乌鲁木齐网站官网定制、小程序定制开发服务，打造乌鲁木齐网络公司原创品牌,更为您提供乌鲁木齐网站排名全网营销落地服务。
属性里面先把UseWaitCursor改为true然后再改Cursor的属性。选择一个你要的形状
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 属性所指定的自定义图标
属性里面先把UseWaitCursor改为true然后再改Cursor的属性。选择一个你要的形状