do case case this.tag = "1" lcX = "ARW05LT.ICO" this.tag = "2" case this.tag = "2" lcX = "DRAGCOPY.CUR" this.tag = "3" case this.tag = "3" lcX = "H_MOVE.CUR" this.tag = "4" case this.tag = "4" lcX = "ARW03LT.ICO" this.tag = "5" case this.tag = "5" lcX = "4WAY01.CUR" this.tag = "1" endcase with this .olecontrol1.DragIcon = lcX .Text1.DragIcon = lcX .Caption = lcX endwithThe cursors and icon were copied to the project folder, I set the DragIcon on the property sheet to the h_move.cur and built an exe. If I run the exe and drag either control the pointer changes. Click the form and drag and can see the change. I did not have any of the graphics files in the project.