Как установить ярлык мыши на ярлык динамически

Question

Я создаю динамические метки внутри формы и хочу, чтобы курсор менял свой стиль со стандартного на указатель. В настоящий момент код выглядит так:

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 

К сожалению, это не работает.

Answer 1

Вам потребуется:

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