dim clipFile
clipFile = Application.InstallationPath( siFactoryPath ) & "\Data\XSI_SAMPLES\Pictures\bottom_teeth.jpg"
const clipName = "MyClip"
' Create an image clip
CreateImageClip clipFile, clipName
' Create a folder named MyBMP_Clips
CreateFolder "Clips", "MyBMP_Clips"
' Move the clip under the new folder
MoveToFolder "Clips.MyBMP_Clips", "Clips." & clipName
'remove the folder along with the clip we just  moved
RemoveFolder "Clips.MyBMP_Clips"