Add String to Combo Box and List Box Using VB.Net

ADD STRING TO COMBO BOX AND LIST BOX:

ADD STRINGS FROM TEXTBOX:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ComboBox1.Items.Add(TextBox1.Text)

    End Sub

ADD STRINGS TO COMBO BOX USING PROGRAM:

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ComboBox1.Items.Clear()

        ComboBox1.Items.Add("ONE")

        ComboBox1.Items.Add("TWO")

        ComboBox1.Items.Add("THREE")

        ComboBox1.Items.Add("FOUR")

        ComboBox1.Items.Add("FIVE")

        ComboBox1.Text = "Select"

    End Sub

ADD STRINGS TO LISTBOX FROM COMBO BOX:

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Add(ComboBox1.SelectedItem)

    End Sub

CLEAR COMBO BOX:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ComboBox1.Items.Clear()

    End Sub

CLEAR LIST BOX:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

    End Sub

SORT COMBO BOX:

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        ComboBox1.Sorted = True

    End Sub