''''''''''''

        On Error GoTo e

        Dim peiam As String

        For i = 0 To ComboBox1.Items.Count

            If ComboBox1.Items(i) = ComboBox1.Text Then

                ComboBox1.Text = ComboBox1.Items(i)

                Exit For

            Else

            End If

        Next

        Exit Sub

e:      peiam = MsgBox("یافت نشد", MsgBoxStyle.OkCancel)