ダイレクトキャスト

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

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があるんです。
できる人が居たら、教えて（＾ｗ＾）

とりあえず、ClickPicture.Name で判断してみては如何でしょう。

Dim CharacterNumber As Integer = CInt(ClickPicture.Name.Substring("waku".Length))

もしくはデザイン時に、PictureBox の Tag プロパティに
管理用の番号を振っておき、それを受け取るようにするとか。

Dim CharacterNumber As Integer = CInt(ClickPicture.Tag)

・・・
Dim ClickPicture As Windows.Forms.PictureBox = DirectCast(sender, Windows.Forms.PictureBox)
        ClickPicture.Image = form1Kyara(kyaraNo)
        Dim Kyara As Integer = CInt(ClickPicture.Tag)
        MsgBox(Kyara)
確認しました。（＾＾）
すごい即答ですね。
（＾礼＾）