Form Object 建立 及 Event 控制

 

   Form Object 建立 及 Event 控制
 
   Public Class Test1
 
      Private B1 As New Button
      Private L1 As New Label
 
      Private Sub Test1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
         B1.Location = New Point(30, 20)
         B1.Size = New System.Drawing.Size(120, 20)
         B1.Text = "Submit"
         AddHandler B1.Click, AddressOf B1_Click
 
         L1.Location = New Point(30, 40)
         L1.Text = "Before Press"
 
         Me.Controls.Add(B1)
         Me.Controls.Add(L1)
 
      End Sub
 
      Private Sub B1_Click()
         L1.Text = "After Press"
      End Sub
 
   End Class