End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncopy.Click
        '============== places text in the listbox 2 times.
        Me.ListBox1.Items.Add(txtOne.Text)
        Me.ListBox1.Items.Add(txtOne.Text)

    End Sub

End Class