VB.net 電卓 (数字ボタン)

◎数字ボタンをまとめて書くとき
#Region "0〜9ボタン"
Private Sub btnSuuji_Click(ByVal sender As System.Object, ByVal e ASystem.EventArgs)
Handles btnZero.Click, btnOne.Click,
btnTwo.Click, btnThree.Click, 　　　　　　　　　　　　　　　　　　　　　　　
btnFor.Click, btnFive.Click,
btnSix.Click, btnSeven.Click,
btnEight.Click, btnNine.Click

'配列変数の宣言
Dim idx As Integer

'(0〜9)のボタンを押したとき
Select Case True

Case sender Is Me.btnZero
idx = 0
Case sender Is Me.btnOne
idx = 1
Case sender Is Me.btnTwo
idx = 2
Case sender Is Me.btnThree
idx = 3
Case sender Is Me.btnFor
idx = 4
Case sender Is Me.btnFive
idx = 5
Case sender Is Me.btnSix
idx = 6
Case sender Is Me.btnSeven
idx = 7
Case sender Is Me.btnEight
idx = 8
Case sender Is Me.btnNine
idx = 9

End Select
以上。