Menghitung Luas Segitiga

Syntax Program

Private Sub CmdHitung_Click()
TxtLuas.Text = Val(TxtAlas.Text) * Val(TxtTinggi.Text) / 2
End Sub

Private Sub CmdSelesai_Click()
End
End Sub