Private Sub txtBox1.txtLife _Enter(ByVal frmQuote) Handles txtLife
Me.txtQuote.Tex t = "I like life, it's something to do."
End Sub

Private Sub txtBox2.txtFutu re_Enter(ByVal frmQuote) Handles txtFuture
Me.txtQuote.Tex t = "The future isn't what it used to be."
End Sub

Private Sub txtBox3.txtTrut h_Enter(ByVal frmQuote) Handles txtTruth
...