Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button7.Click, Button13.Click, Button14.Click, _
      Button15.Click ' ,etc.
 
        For i As Integer = 0 To m_ButtonList.Count - 1
            If CType(sender, Button).Name = m_ButtonList(i).Name Then
                m_ButtonList(i).BackColor = Color.Blue
                SFotoID = i + 1
            Else
                m_ButtonList(i).BackColor = Color.Gray
            End If
        Next
        Debug.WriteLine(SFotoID)
 
    End Sub