[taximania]

This modified version of Erel's code works on my XDA.
'Modify the pictures location to suit your device.'
All it does is check the directory, and loads the newest picture,
(the one that's just been took).
Green bit below is optional.

Sub Globals
 tick = 0
End Sub

Sub App_Start
 Form1.Show
 process.New1
 hardware.New1
 timer1.Interval = 5000
End Sub

Sub Button1_Click
 timer1.Enabled = True
process.Start("\windows\camera.exe","")
End Sub

Sub AfterPicture
 ArrayList1.Clear
 FileSearch(ArrayList1,"<font color="Blue">\Storage Card\My Documents\My Pictures\</font>","*.jpg")
 file=ArrayList1.Item(arraylist1.Count-1)
 <font color="lime">label1.Text = file 'full path and file name
 'label1.Text = FileName(file) 'just file name</font>
 image1.Image = file
End Sub

Sub Timer1_Tick
 tick = tick + 1
 If tick = 1 Then 'take picture
  hardware.KeyPress(13)
 Else
  timer1.Enabled = False
  process.CloseMainWindow
  tick = 0
  AfterPicture
 End If
End Sub