Is this the right code for the below question? Private Sub btnCompute$\_$Click$(...)$ Handles btnCompute.Click

Dim shapeNum As Integer

Dim length, height, width As Double

$$Input choice of shape and its dimensions

$1,$ Rectangle

shapeNum $=$ CInt$($mtbSelection$.$Text$)$ 'Mask is $0$

Select Case shapeNum

Case $1$

length $=$ CDbl$($InputBox$("$Input the length of the rectangle: $"))$

width $=$ CDbl$($InputBox$("$Input the height of the rectangle: $"))$

txtArea.Text $=$ CStr$($length $*$ weight$)$ to write coding for area of rectangleQuestion $3$ Area Function

Length:

Widith:

Area: