Sub Button_sql_Click(sender As Object, e As EventArgs)
    IF Not Page.IsPostBack Then   
    If ListBox1.SelectedIndex > - 1
          Label1.Text=""
          Dim ctr as Integer
          For ctr=0 to ListBox1.Items.Count()-1
               If ListBox1.items(ctr).selected
                    Label1.Text += " <b>" & ListBox1.items(ctr).Text & "</b>"
               end if
          Next
     End If
     End If
    End Sub 'Button_Click    去掉 IF Not Page.IsPostBack Then   吧