HTML Code:Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Set the caption bar text of the form. Me.Text = "Hello Danzey" ListBox1.Items.Add("200") ListBox1.Items.Add("140") ListBox1.Items.Add("120") ListBox2.Items.Add("jack") ListBox2.Items.Add("nina") ListBox2.Items.Add("lisa") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MsgBox(ListBox2.SelectedItem.ToString() + ListBox1.SelectedItem.ToString()) End Sub End Class




Reply With Quote
