Vba 如何动态设置标签鼠标图标

我在表单中创建动态标签，并希望光标将其样式从标准样式更改为指针样式。此时，代码如下所示：

 Set lbl = Me.Controls.Add("Forms.Label.1")
 With lbl
     .Caption = myArray(i) ' array of label names
     .Top = i * 25
     '.MouseIcon = "C:\hand.cur" <- this does not work
 End With

Set lbl=Me.Controls.Add（“Forms.Label.1”）
带lbl
.Caption=myArray（i）'标签名称数组
.Top=i*25
'.MouseIcon=“C:\hand.cur”您需要：

    ...
    .MousePointer = fmMousePointerCustom
    .MouseIcon = LoadPicture("C:\hand.cur")
End With

谢谢你，先生！它起作用了。但是你能给我另一个建议吗。如果我想从url加载图标怎么办？