dim x as integer
x=text1.text
if x==0 then
{text2.text="العدد صفر "}
else if x>0 then
{text2.text="العدد موجب "}
else if x<0 then
{text2.text="العدد سالب "}
else
{text2.text=" "}
end if
+++++++++++++++++++++++++++++++++

select case x
case (x=0)
text2.text="العدد صفر "
case (x>0)
{text2.text="العدد موجب "}
case (x<0)
{text2.text="العدد سالب "}
case else
{text2.text=" "}
end select