Including A Procedure

The fact that a guess must be made in three places is motivation to define a procedure to make the guess (despite the fact that it is a trivial computation)

Dim loSide As Integer

Dim increment As Integer

Private Sub guess()

lblGuess.Caption = loSide + increment

End Sub

Private Sub Form_Load()

increment = 100

loSide = 0

Call guess

End Sub

The fact that a guess must be made in three places is motivation to define a procedure to make the guess (despite the fact that it is a trivial computation)