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