[RESOLVED] picture box help

[Leinad999]

I am trying to find a way to basically check that if all picture boxs are black then you have completed the game

i am looking for somthing along the lines of

If PIC_ALLSET = 33554431 Then
MsgBox ("congratulations you took : " & sec & " seconds")
Else
End If

but this does not work for some reason

Thank for help in advance

Daniel o/

[msayed2004]

If Picture1.BackColor = vbBlack Then
    MsgBox ("congratulations you took : " & sec & " seconds")
End If

[timeshifter]

IF there are multiple boxes, are they in an array?

If so, you could just cycle through each one with a For loop and set a boolean variable that tells you if any of them are not black.

[Leinad999]

can u give a example of what you mean please didnt quite uderstand what u was getting at then timeshifter

thnx

[msayed2004]

This may work ,
If you have 10 Pictureboxes :

Dim i As Integer , x As Integer
For i = 0 to 9
    If Picture1(i).BackColor = vbBlack then x =x +1
Next
if x = 10 then MsgBox ("congratulations you took : " & sec & " seconds")

[Leinad999]

yeh that works cheers for the help o/

[Resolved]

Dan