Replacing bmps in a Picturebox

[MarkG]

Hello,
I'm relatively new to VB and I'm having trouble with some (what should be simple) code. This code is just me, trying to teach myself ways to do things, and maybe there'll be a practical application in the future. I'm using VB 6.0 on a Windows XP platform.

Ok, the code is:
Option Explicit
Dim inc As Integer

Sub form_load()
Dim objPics(1 To 7) As String
' Load bitmaps into the Picture object array.
objPics(1) = "C:\VBstuff\test\pic1.bmp"
objPics(2) = "C:\VBstuff\test\pic2.bmp"
objPics(3) = "C:\VBstuff\test\pic3.bmp"
objPics(4) = "C:\VBstuff\test\pic4.bmp"
objPics(5) = "C:\VBstuff\test\pic5.bmp"
objPics(6) = "C:\VBstuff\test\pic6.bmp"
objPics(7) = "C:\VBstuff\test\pic7.bmp"

Timer1.Enabled = True

End Sub


Private Sub Timer1_Timer()
inc = 1
If inc < 3 Then
Picture1.Picture = LoadPicture(objPics(inc))
inc = inc + 1
Else
Timer1.Enabled = False
End If
End Sub

What I get is:
Compile Error
Sub or Function not defined

Picture1.Picture = LoadPicture(objPics(inc))
objPics gets highlighted.

How can I get it to see that it's an array and not a function?

Thanks in advance,
Mark

[YarrOfDoom]

I don't know VB6, but in Visual Studio 2005 Express, the lower boundery of an arry should always be 0, making your declaration:

Dim objPics(0 To 6) As String

Or maybe you typed the arrayname wrong somewhere in your code. If it isn't that, then your error is "VB6-only", and I hope someone else will be able to solve it for you.
Or maybe you can try using a string to where you load your value if you need it:

string = objPics(inc)
Picture1.Picture = LoadPicture(string)

Yarr
(ps: using [code]-tags makes your code more readable to others)

[SonnyH]

You should declare objPics(1 To 7) outside of Sub Form_Load because in your code, that array is local Sub Form_Load only.

Also statement inc = 1 should not be in Timer sub