Dim a As New Button
         a.id="aa"
         a.Visible = True
         a.Text = "asdfasdf"
          a.Attributes("onclick") = "javascript:alert('Hello! Focus lost from ‘)“
     Panel1.Controls.Add(a)这是一个办法,等我在告诉你第二个办法