Private Sub cmdcalculate_Click()
Dim length As Integer
Dim height As Integer
Dim Formula As Integer
length = txtlength.Text
height = txtheight.Text
Formula = (length * height) / 2
picOut.Print " Area of Triangle"
picOut.Print
picOut.Print " The Area of Triangle :" & Formula; " cm "
End Sub
Private Sub cmdclear_Click()
txtlength.Text = ""
txtheight.Text = ""
End Sub
Private Sub cmdquit_Click()
End
End Sub
No comments:
Post a Comment