If you look closely you'll notice this is a minor variation of one of Roman's tutorials. Will obviously need some tweaking based on your settings. I tested it with a simple 1px white tile. It grows & moves at the same time giving a zoom appearance.

Had one effect actually arcing like it was popping out. Lost it in a dx crash unfortunately.

Dim MinW,MaxW
MinW = 48
MaxW = 256
MinH = 48
'This line is in here for future reference. Not functional in this script
MaxH = 256
Sub Object_OnScriptEnter
     object.width = MinW
     Object.Height = MinH
     Object.top = 594
     Object.left = 201
End Sub

'You can use place the script below into another object as follows
'Call DesktopX.ScriptObject("effect").Toggle
Sub Object_OnLButtonDown(x,y)
    Call Toggle
End Sub

' This Sub actually could be combined with the Grow/Shrink functions. It looks a little nicer this way.
Sub Toggle
    If object.width => MinW Then
         Call Shrink
  Else
     Call Grow
  End If
End Sub

Function Shrink
    object.KillTimer 200
    object.SetTimer 100,10
End Function
Function Grow
     object.KillTimer 100
     object.SetTimer 200,10
End Function

Sub object_ontimer100
     If object.width => MinW Then
          object.width = object.width - 4
          object.height = object.height - 4
          object.left = object.left - 8
          object.top = object.top + 8
     Else
          object.KillTimer 100
     End If
End Sub
Sub object_ontimer200
     If object.width <= MaxW Then
          object.width = object.width + 4
          object.height = object.height + 4
          object.left = object.left + 8
          object.top = object.top - 8
     Else
          object.KillTimer 200
     End If
End Sub

Sub Object_OnDropFiles(files)
Object.picture = files
End Sub