Public Class Form1
    'Programmer: Janet Joy
    Private Sub ComputeArea(sender As System.Object, e As System.Windows.Forms.ScrollEventArgs) Handles ScrHeight.Scroll, ScrWidth.Scroll
	    'Compute area from value of widh and height in scroll bars
        Dim width, height, area As Integer
        width = ScrWidth.Value
        height = ScrHeight.Value
        area = width * height
        LblWidth.Text = width
        LblHeight.Text = height
        LblArea.Text = area
    End Sub
End Class