مشکلت حل شد
مشکلت حل شد
if keycode=vbkey. then
a=Mid(text1.text,1,Len(text1.text-1) 'xxx این از ذخیره عدد اصلی
endif
cmd click()
text2.text=STRREVASE(Mid(text1.text,mid(a) , len(text1.text) 'xxx
text1.paswordchar="*" 'xxx
endsub
این از معکوس عدد اعشار
:cry:
شماره ام را بنوییس وبا من تماس بگیر...