Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        For i As Integer = 0 To 100
            ComboBox1.Items.Add(i.ToString)
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim value As Integer = 1
        For Each o As Object In ComboBox1.Items
            If o = value Then
                ComboBox1.SelectedItem = o
            End If
        Next
    End Sub