Programming 2 */ Hand Coding Controls */

Public Class HowToHandCodeControls  
   Private Sub HowToHandCodeControls_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
     Dim B As New Button  
     B.Text = "Berries"  
     B.Location = New Point(1, 1)  
     B.Name = "btnBerries"  
     B.Size = New System.Drawing.Size(50, 50)  
     Me.Controls.Add(B)  
     Dim T As New TextBox  
     T.Text = "Terry"  
     T.Location = New Point(100, 1)  
     T.ReadOnly = False  
     Me.Controls.Add(T)  
     Dim L As New Label  
     L.Text = "Larry"  
     L.Location = New Point(1, 100)  
     T.Enabled = False  
     Me.Controls.Add(L)  
     Dim LB As New ListBox  
     LB.Text = "Larry's Berries"  
     LB.Location = New Point(100, 100)  
     Me.Controls.Add(LB)  
   End Sub  
 End Class