Sub Command1_Click()
msgbox "Command1 clicked!"
End Sub
Sub Command1_Click(Index as Long)
Select Case Index
Case 0
msgbox "Button with index #0 clicked!"
Case 1
msgbox "Button with index #1 clicked!"
Case 2
msgbox "Button with index #2 clicked!"
End Select
End Sub