Corel and Visual Basic

[Smokey Joe]

Does anyone have an example of a visual basic script for ANY Corel
application (if you have a choice then Photo Paint v10) that you could send
me as I'm getting a little upset at my inability to get one to work. I think
if I could see an example of one already done I would be able to work it
out. I have a shed load of photos and all I want to do is run a macro to
reduce them in size but I can't get the first bit of the command that I
need.

please email to newsforsmokey@hotmail.com

Here's what I've wrote so far

Sub redu()
Dim x As Integer
Dim openname As String
Dim savename As String
For x = 2 To 9
Let openname = ("110-100" & x & "_IMG.jpg")
Let savename = ("Venice" & x & ".jpg")
'activate relevant window
CorelPHOTOPAINT.FileOpen.openname
'resample
ActiveDocument.ImageResample 320, 240, 72, 72, True
'save file as
CorelPHOTOPAINT.FileSave.savename , 774, 0
ActiveDocument.Close
Next
For x = 10 To 99
Let openname = ("110-100" & x & "_IMG.jpg")
Let savename = ("Venice" & x & ".jpg")
'activate relevant window
CorelPHOTOPAINT.FileOpen.openname
'resample
CorelPHOTOPAINT.ActiveDocument.ImageResample 320, 240, 72, 72, True
'save file as
CorelPHOTOPAINT.FileSave.savename , 774, 0
ActiveDocument.Close
Next
End Sub