- Bajamos a la carpeta Files del proyecto las imágenes paisaje3.gif y pajaro.gif.

- Luego copiamos y pegamos el código.

- Podremos mover la pajaro.gif por la pantalla.

- También tendremos que activar la librería: TouchImageView

Sub Process_Globals
' Juan Antonio Villalpano
' juana1991@yahoo.com
' marzo 2013
End Sub

Sub Globals
    Dim rectangulo As Rect
    Dim TouchImageView1 As TouchImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        '    izquierda, derecha, ancho, alto
        rectangulo.Initialize(10dip, 10dip, 20%x, 20%x)
    End If
    
    TouchImageView1.Initialize("TouchImageView1")
    TouchImageView1.MinScale = 0.3 ' Mínima escala del zoom
    TouchImageView1.MaxScale = 6   ' Máxima escala del zoom
    TouchImageView1.TranslatePadding = 20 ' Trozo de imagen que no sale de pantalla
    
    TouchImageView1.Gravity = Gravity.FILL ' Fondo de pantalla
    TouchImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets, "paisaje3.gif"))
    
    Dim Bitmap1 As Bitmap
    Bitmap1.Initialize(File.DirAssets, "pajaro.gif")
    TouchImageView1.Bitmap=Bitmap1
    TouchImageView1.SetScaleRect(rectangulo, "CENTER")
    Activity.AddView(TouchImageView1, 0, 0, 100%x, 100%y)
    
End Sub

Sub Activity_Resume
End Sub 

Sub Activity_Pause (UserClosed As Boolean)
    rectangulo=TouchImageView1.GetScaleRect
End Sub

Sub Toggle_Click
    TouchImageView1.TouchEnabled = Not(TouchImageView1.TouchEnabled)
End Sub

Sub TouchImageView1_Click
    ' Cuando pulsas en la imagen
End Sub

Sub TouchImageView1_LongClick
    ' Pulsar durante un tiempo en la imagen
End Sub
      

- Mediante este código podemos mover el ratón por la pantalla y la imagen nos seguirá dirigiéndose hacia el ratón.

- Si dejamos el ratón pulsado sobre un lugar de la pantalla, la imagen se dirigirá al ratón.

- Es interesante que bajes y ejecutes este código.