[agraham]

Various ways. If they are labelled sequentially then something like this.

Sub App_Start
  Form1.Show
  For i = 1 To 30
    AddEvent("ImageButton" & i, click, "Down")
  Next        
End Sub

Sub Down
  Msgbox(Sender)
End Sub