Private Sub Command1_Click(Index As Integer)
if Index = 0 then .....
if Index = 1 then .....
if Index = 2 then .....
End Sub