Private VoteArray() As Integer ' Array for items (integers in this case)
      Private Const VOTE_ARRY_SIZE As Integer = 3 ' Number of items in the array
      ' A help variable to hold "voted number"
      Private Voted As Integer
 
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      ' Set array size. Notice: arrays are zero-based
      ReDim VoteArray(VOTE_ARRY_SIZE - 1)
      ' If you have continuous values, use a loop to fill the array
      VoteArray(0) = 2
      VoteArray(1) = 3
      VoteArray(2) = 4
 
      End Sub
      Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
      ' Notice: Voted value is now hard coded, you'll use textbox or something like that
      Voted = 2
      If [Array].IndexOf(VoteArray, Voted) >= 0 Then
      MessageBox.Show("Found", "Vote", MessageBoxButtons.OK, MessageBoxIcon.Information)
      Else
      MessageBox.Show("Not found", "Vote", MessageBoxButtons.OK, MessageBoxIcon.Information)
      End If
      End Sub