#include "vbcompat.bi" Dim As Double Pi=4*Atn(1) ?Pi ?Format(Pi, "####.####") ?Val(Format(Pi, "####.####")) Sleep