ممكن الحل والك دعوة في صلاتي اذا اعطيتني الحل

[نورا 90]

مثلا الرقم المدخل يكون في مربع نص ولنرمز له بالرمز 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

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