Visual Basic 6.0 program to find the area of Rectangle, Circle and Triangle.

Interface

Program Code 

Private Sub cmdRectangle_Click()
Text3.Text = (Val(Text1.Text)) * (Val(Text2.Text))
End Sub

Private Sub cmdCircle_Click()
Text5.Text = (Val(Text4.Text)) * 3.14
End Sub

Private Sub cmdTriangle_Click()
Text9.Text = ((Val(Text6.Text)) + (Val(Text7.Text)) + (Val(Text8.Text))) / 2
End Sub