' A picture box is used to hold the icon for the MouseIcon property. A suitable
' icon has been defined in the picture box using its Picture property.
Set SftDirectory1.MouseIcon = Picture1.Picture
SftDirectory1.MousePointer = sftCustom