:master: per quale motivo vuoi delegare???
Che sappia io, ed a me funzia, basta fare:
codice:
AddHandler INTButton_IM(IM_CONT + 1).Click, AddressOf EventoClick

Private Sub EventoClick(ByVal sender As Object, ByVal e As EventArgs)
   'se vuoi fai il casting dell'ogetto...
   Dim ctrl As Control = DirectCast(sender, Control)
   'fai le tue operazioni...
   ....
End Sub