Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim iv As ImageView
Dim im As Image
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
im.Initialize("c:/temp","hannah.jpg") ' your image file
iv.Initialize("iv")
iv.SetImage(im)
MainForm.RootPane.AddNode(iv,0,20,100,100)
iv.SetLayoutAnimated(5000,200.0,0,100,100) ' 5 seconds to travel 200 pixels right
End Sub
Sub iv_AnimationCompleted
iv.Visible = False ' when complete hide the imageview
End Sub