Contoh sederhana program foxpro
Berikut adalah contoh program untuk menghitung Luas Segitiga dengan Event InteractiveChange.

Komponen  Properties  Nilai
Label1-Label4  Caption  Sesuaikan dengan tampilan
Text1  Name     TINGGI
           Value     0
Text2  Name     ALAS
           Value     0
Text3  Name     LUAS
           Value     0
           Enabled  .F.
Command2  Name  BERSIH
                    Caption  \<Bersih
Command3  Name  KELUAR
                   Caption  \<Keluar

Listing Program

TINGGI - InteractiveChange
WITH THISFORM.LUAS.VALUE = 0.5 * .ALAS.VALUE * .TINGGI.VALUE
ENDWITH
ALAS- InteractiveChange
WITH THISFORM.LUAS.VALUE = 0.5 * .ALAS.VALUE * .TINGGI.VALUE
ENDWITH

BERSIH - Click
WITH THISFORM
.TINGGI.VALUE=0
.ALAS.VALUE=0
.LUAS.VALUE=0
.TINGGI.SETFOCUS
ENDWITH

KELUAR - Click
PESAN=MESSAGEBOX ("Apakah benar anda akan keluar ???",4 + 64,"Foxpro")
IF PESAN = 6
  THISFORM.RELEASE()
ENDIF