از دستور سلکت کیس به این شکل استفاده کن :


Select case n

case n<0

    Lable1.capton="Neg."

case n>0

    lable1.caption="Pos."

case else

    lable1.caption="Zero"

end select

:wink: :موفق: