/Picture/Screenshot/Make Screenshot
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Picture/Screenshot/Make Screenshot
This example is the version from Sat, 16th Jan 2009.
Notes: Last modified: Sat, 16th Jan 2009

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
  
  // Event implementations
  Sub Open()
    dim f as FolderItem
    dim p as Picture
    dim n as integer
    dim name as string
    
    p=ScreenshotMBS
    
    n=1
    name="screenshot"+str(n)+".jpg"
    f=GetFolderItem(name)
    
    while f.Exists
      n=n+1
      name="screenshot"+str(n)+".jpg"
      f=GetFolderItem(name)
    wend
    
    f.SaveAsJPEG p
    
    quit
    
  End Sub
End Class

Class Window1
Inherits Window
End Class