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  

Programming 2 /* Repeatable Processing */ 1/19/11

--Calculating a tip.
$23.12 @ 10%
T = 23.12
Tip = .1
TotalTip = T * Tip

--Calculating Final Grade.
30% Blog, 40% Assignments, 10% Peer Evals, 20% Final
86/100 blog, 345/450 assignments, 43/50 peers, 55/80 final
BlogTP = 100
BlogS = 86
BlogP = BlogS/BlogTP
BlogW = .3
AssignTP = 450
AssignS = 345
AssignP = AssignS/AssignTP
AssignW = .4
PeerTP = 50
PeerS = 43
PeerP = PeerS/PeerTP
PeerW = .1
FinalTP = 80
FinalS = 55
FinalP = FinalS/FinalTP
FinalW = .2
Grade = (BlogP * BlogW) + (AssignP * AssignW) +...

--It's time to send out all the Christmas cards again, but you don't feel like writing all the envelopes by hand.
--How could you use a formula to create the addresses for you?
FL = First & " " & Last
SL = Address
TL = City & " " & State & " " Zip