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