' Description: Look for fractal images and upgrade any that are found. Dim iRec,nRecs,nImgs,nFractals nFractals=0 nImgs=0 Sub UpdateStatus StatusText="" & iRec & "/" & nRecs & ": " & nImgs & " scanned, " & nFractals & " fractal." End Sub Set recs=Database.AllRecords nRecs=recs.Count For iRec=1 To nRecs Set rec=recs(iRec) Set imgs=rec.Images bEditing=0 n=imgs.Count For i=1 to n Set img=imgs(i) nImgs=nImgs+1 If img.IsFractal Then If bEditing=0 Then rec.Edit bEditing=1 End If imgs.Add img.Picture imgs.MoveFromTo imgs.Count,i imgs.MoveFromTo i+1,imgs.Count imgs.Remove imgs.Count nFractals=nFractals+1 UpdateStatus End If Next If bEditing Then rec.Save End If UpdateStatus Next MsgBox "Records scanned: " & nRecs & vbCrLf & "Images scanned: " & nImgs & vbCrLf & "Fractal images converted:" & nFractals