C# と VB.NET の質問掲示板

> Protected Sub BtnEnzan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEnzan3.Click, BtnEnzan4.Click, BtnEnzan1.Click, BtnEnzan2.Click, BtnEnzan0.Click
>         Dim Index As Integer
>         Index = DirectCast(BtnEnzan.Tag, Integer)

senderがイベントを発した張本人だから、なんとかしてsenderをButtonに見せかけなきゃいかんの。
そのためにキャスト(DirectCast)するんす。

Protected Sub BtnEnzan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEnzan3.Click, BtnEnzan4.Click, BtnEnzan1.Click, BtnEnzan2.Click, BtnEnzan0.Click
     Dim BtnEnzan As Button = DirectCast(sender, Button) ' ← これでsenderがButtonになったから
     Dim Index As Integer = DirectCast(BtnEnzan.Tag, Integer) ' Tagが拾える。TagはObjectなので再度Integerにキャスト。