緋竜はダサイんで、名前を変えましたｗｗ

Private Sub waku_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waku1.Click, waku9.Click, waku8.Click, waku7.Click, waku6.Click, waku5.Click, waku4.Click, waku3.Click, waku2.Click, waku15.Click, waku14.Click, waku13.Click, waku12.Click, waku11.Click, waku10.Click

        Dim ClickPicture As Windows.Forms.PictureBox = DirectCast(sender, Windows.Forms.PictureBox)

        ClickPicture.Image = form1Kyara(kyaraNo)

    End Sub

ピクチャBoxの何番目を参照してるか、変数に代入したいんですが。
別の方法ではやれるんだけど、このsubの中でやりたい。
パネル1に15個のピクチャBoxがあるんです。
できる人が居たら、教えて（＾ｗ＾）