مثلا الرقم المدخل يكون في مربع نص ولنرمز له بالرمز x وعند الضغط على الزر يكتب لي في مربع اخر انو العدد سالب او صفر او موجب
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
.gif)

ان شاء الله الحل هذا هو ودعواتك لي