Protected Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Introtxt.Text = Me.ListBox1.SelectedItem.Text
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Introtxt.Text = Me.ListBox1.SelectedItem.Text
End Sub