' ------------------------------------------------------------------------------------
'			MyAlbumExternal.vbs
' This script shows how to call MyAlbum from the "outside" (i.e. from another
' application or the script host for instance).
' Command: cscript MyAlbumExternal.vbs
' ------------------------------------------------------------------------------------

' Create an instance of the MyAlbum application
set app = CreateObject("MyAlbum.Application")
'set app = GetObject("MyAlbum.Application")

' Make the application visible
app.Visible = True

' MyAlbum starts without any album, so create a new empty one
app.NewAlbum
set alb = app.GetCurrentAlbum

if alb is Nothing then MsgBox "Nothing !"

' Create a new picture with a blue background
alb.NewPicture 320, 200, 24, &hff

alb.redraw