Fungsi Shadow

*--------------
Function Shadow
*--------------
* Fungsi untuk membuat bayangan kotak
* Fungsi ini dipanggil secara oTomatis oleh Fungsi BOXMENU
* Fungsi ini juga memanggil Fungsi PUDAR
* Revisi terakhir : 03/02/1992
ParameterS Atas, Kiri, Bawah, Kanan
RestScreen(Bawah + 1, Kiri + 2, Bawah + 1, Kanan + 2, ;
Pudar(SavEscreen(Bawah + 1, Kiri + 2, Bawah + 1, Kanan + 2)))

RestScreen(Atas + 1, Kanan + 1, Bawah + 1, Kanan + 2, ;
Pudar(SavEscreen(Atas + 1, Kanan + 1, Bawah + 1, Kanan + 2)))

Return .T.
*---------