Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dataEntered As String = TextBox2.Text
If Not String.IsNullOrEmpty(dataEntered) Then
If Not ComboBox1.Items.Contains(dataEntered) Then ComboBox1.Items.Add(dataEntered)
End If
TextBox2.Text = ""
End Sub
Private Function ComboBoxItemsToDtatTable(cb As ComboBox) As DataTable
Dim result As DataTable = CType(Nothing, DataTable)
result = New DataTable With {.Locale = System.Globalization.CultureInfo.InvariantCulture}
If cb IsNot Nothing AndAlso cb.Items.Count > 0 Then
result.Columns.Add(New DataColumn("Service Type", GetType(String)))
End If
Dim count As Integer = cb.Items.Count
For i As Integer = 0 To count - 1
result.Rows.Add(New Object() {cb.Items(i)})
Next
Return result
End Function