Private Sub Command1_Click()
Label5.Caption = "LuasNYA ADALAH ="
Text4 = Val(Text1.Text) * Val(Text2.Text) * 0.5
End Sub


Private Sub Command2_Click()
Label5.Caption = "voLumeNYA ADALAH ="
Text4 = 4 / 3 * Val(Text3.Text) * 3 * 3.14
End Sub