Common event for an array of controls?

[Thomas Halsvik]

Aquiring new knownledge about creating controls at run time, I would like to them to share a common event-procedure.

Does anyone know how to do this? Look at my pseudo to see what I'm looking for.

Dim myControls(100) As objects

Sub MakeTheControls()
  Set myControls(0) = Controls.Add(...)
  Set myControls(1) = Controls.Add(...)
  ...
End Sub

Sub CommonEvent(AString As String)
  'AString is an identifier that i can use in the following:
  Select Case AString
    Case "my1stcontrol": ...
    Case "my2ndcontrol": ...
    ...
  End Select
End Sub