Area of the Rectangle in VB6

Posted: 2019-11-14
By: JakeRPomperada
Viewed: 215

Filed Under:

VB6 Code Cache, VB6 Math/Dates, VB6 Miscellaneous

No attachments for this post

Here is a very simple program that I wrote using VB to compute the area of the rectangle. The code is very short and easy to understand. What does the program will do is to ask the user to give length and breath of the rectangle and the our program will solve for it's area.

Private Sub Command1_Click()
   Sum = Val(Form1.Text1.Text) * Val(Form1.Text2.Text)
   Label4.Caption = "The are of the rectagle is " & Sum & "."
End Sub

Private Sub Command2_Click()
   Form1.Text1.Text = ""
   Form1.Text2.Text = ""
   Form1.Label4.Caption = ""
   Form1.Text1.SetFocus
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.