Dim myValue As New ComboBox
                        With myValue
                            .Parent = myProjectUserField
                            .Name = "Value_ID" & dr("ID") 'Perhaps 22
                            .Size = New Size(CInt(dr("FieldWidth")), CInt(dr( _
                              "FieldHeight"))) 'Perhaps 150,13
                            .Location = New Point(CInt(dr("FieldLeft")), CInt( _
                            dr("FieldTop") - 3)) 'Perhaps 10,10
                            .FlatStyle = FlatStyle.Flat
                            .DropDownStyle = ComboBoxStyle.DropDownList
                            .Font = New Font("Verdana", 7, FontStyle.Regular)
                            If dr("Mandatory") = 1 Then
                                .Name = "X" & .Name
                            End If
                            Select Case dr("List_IDX") 'Perhaps 1
                                Case 1
                                    Dim ds As New Country
                                    .DataSource = ds.dt
                                    .ValueMember = "Country_ID"
                                    .DisplayMember = "CountryName"
                                Case Else
                                    If dr("List_IDX") > 1000 Then
                                        Dim ds As New List(CInt(dr("List_IDX")))
                                        .DataSource = ds.dt
                                        .ValueMember = "ID"
                                        .DisplayMember = "Item"
                                    End If
                            End Select
                            .Text = ""
                        End With