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