Sub Option1_Click(Index As Integer)
Option1(0).Tag = Index
End Sub