Picturebox problem

[BrailleSchool]

I have a form with a picturebox on the top that I am going to use as a "page header". The page header is going to be on multiple forms so would like to set its properties in one place instead of multiple places.

In the form load of the form, I have:

Private Sub Form_Load()
    PageDesign
End Sub

The picturebox is called picPageHeader. Now in the module, I have:

Public Sub PageDesign(picPageHeader As PictureBox)
    With picPageHeader
        .BackColor = RGB(187, 187, 187)
    End With
End Sub

but when I bring up the form, I am given the following error message:

Argument not optional

When I click OK, I am then taken to the form load event of the form itself. What am doing wrong? Please advise and thanks in advance.

[szlamany]

Try this...

Private Sub Form_Load()
    PageDesign picPageHeader 
End Sub
.
.
.
Public Sub PageDesign(picPH As PictureBox)
    With picPH
        .BackColor = RGB(187, 187, 187)
    End With
End Sub

edit: I removed the ()'s around picPageHeader in the FORM_LOAD - I don't usually call sub/funcs without CALL or X= type syntax...

[vbasicgirl]

you have missed the picturebox argument

PageDesign Form1.Picture1

dont forget it would be a different form for each one.

casey.

[si_the_geek]

When you call the PageDesign sub you you need to specify the picturebox as expected in the parameter, eg:

PageDesign picPageHeader

either that, or remove the parameter from the sub (assuming that it is in the form)