Hi everyone,

I'm a newbee with vbnet ,I have a vb net 2005 and I write for pocketpc application ,
I have 1 combobox and 5 values in it ,when I select 1 value from the cmbo it writes values in textboxes , what wrong with this code that it returns values only from case 1-4 ,and ignores the values of case 0?!

please its very important..


Code:
        If ComboBox1.SelectedItem() Then
            Dim ans As Double
            ans = ComboBox1.SelectedItem
            Select Case ans
                Case -1
                    MessageBox.Show("יש לבחור את דרגת החספוס")
                Case 0
                    TextBox3.Text = 0.153
                    TextBox4.Text = 0.003
                    TextBox5.Text = 1.0
                Case 1
                    TextBox3.Text = 0.17
                    TextBox4.Text = 0.01
                    TextBox5.Text = 1.0
                Case 2
                    TextBox3.Text = 0.19
                    TextBox4.Text = 0.05
                    TextBox5.Text = 2.0
                Case 3
                    TextBox3.Text = 0.215
                    TextBox4.Text = 0.3
                    TextBox5.Text = 5.0
                Case 4
                    TextBox3.Text = 0.234
                    TextBox4.Text = 1.0
                    TextBox5.Text = 10.0

            End Select
        End If