the problem is, you are passing in a SINGLE picturebox.. not the array

but i cant remember how to make the sub accept it.. unless its a variant

VB Code:
  1. Sub MySub(pbx1 As Variant)
  2.     For x = 0 To pbx1.ubound
  3.         Debug.Print pbx1(x).Index
  4.     Next
  5. End Sub
  6.  
  7. Private Sub Command1_Click()
  8.     MySub Picture1
  9. End Sub