I just wanna share my apps in this forum and hopping for any feedback to help me improve on my programming skills. I had made an application on "Pythagoras Theorem" so to make it easier for those who having trouble finding the answer for your Pythagoras Theorem questions. Have fun Playing with it..
2 text boxes
Here are the CODE:
Here are the attributes:Code:Function Pythagoras_Theorem(A As Double, B As Double, C As Double) As Double PythagorasTheorem = A ^ 2 + B ^ 2 = C ^ 2 End Function Private Sub Command1_Click() Label6 = (Text1.Text ^ 2) + (Text2.Text ^ 2) Label6.Caption = Val(Label6 / 2) End Sub Private Sub Command2_Click() Form_Load End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Label6.Caption = "" End Sub Private Sub Label6_Click() End Sub