neverlieme
پنج شنبه 05 بهمن 1391, 16:33 عصر
سلام من این برنامه رو نوشتم که آدرس یه دایرکتوری رو میگیره و اسم همه ی فایل ها و فولدر های داخل اون رو تو یه rich text box می نیویسه
حالا میخوام بدونم چطور میشه که فقط دایرکتوری هایی رو بنویسه که معمولین. یعنی نه سیستمی هستن نه هیدن. ممنون می شم راهنمایی کنید. در ضمن این برنامه رو تو ویژوال بیسیک 2010 نوشتم
اینم برنامم http://uploadtak.com/images/a156_Untitled.png
http://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAZoAAADQCAIAAAC x0DCKAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJc EhZcwAADsMAAA7DAcdvqGQAAB3eSURBVHhe7Z09riQ7coV7E7O J1hZmDfJ6I7OBlj2ejFnBeO0II0OQIUCuIE9ACwIkR8ZYgixt4 E30PXrx4kUEmcFkZlYm6xQuGtVZ/Ik4JL8MMn/46Sd+qAAVoAJLKPBpCS/oBBWgAlTgJ+KMnYAKUIFFFCDOFmlIukEFqABxxj5ABajAIgoQZ 4s0JN2gAlSAOGMfoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsT ZIg1JN6gAFSDO2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKIAc bZIQ9INKkAFboezT59OMen79+9S8rdv3/pN/uXLF0lWSblZjtYlVX/+/JldjQpQgbMVqLJDxzlGO8zCdzv+ZQzbg33rgRh8pHwtc7fPndq LOEPVQp9N8HWM/Pr1q7qDZPJfd2S3j8xIBahAS4EBnMURrlwDR6QO+aKRiIzqTqg Fvsi/zrKZ6Kxee79DzOAMfsXyU2fZL6kAFThQgcNwBopZoCDMEail5n ZwpkGW5rVxHKjqiIN6W7WnU0gbbzpSu8Jj7fDUxqFqqhSbuhxD tgNbkUVRASogCgzgTEevxl92PCPOckBpjW1Ij/DNrSvpxFMjPgs+/a4lIxQCLPq1t2KuGE/ZlGntP4T7ObR0lbaisFbUxl5IBajAUQoM4Kwz2dQxP4SzFGo6U 9Px7+IaYEsOykeDMvtflcbBNAZ0rWU+mzKtvY+zVttwvnlUr2U 5VCBV4BicYfYnAIrTveKaugx1pCziTBKDVvgCxvVrdzhTuPSjs xbO7FzVrgB21v6IMw5CKnCqAsfgTIlggYIBr9Zj8pjSzU7oIs7 S6R7ufsDlQvk3wtTVDuBq7bbMekrN1bn3gpPNU/srC6cCHQVmcabzNV07i0tsdlKpQHFL6Xo84gxLcq4ixHFYdNdL qDaZXZKT73Zeibo0vLJXYNOUae3pnSsolpcCOOSowEsUqOLsJc bdtlK9TAELLcJ4o8ZtW42GLa8AcbaniR3O3CSat9Hu0ZR5qMC0 AsTZTgnttDTOLnFpAkXjYsXOapiNClCBsgLEWVkqJqQCVODeCh Bn924fWkcFqEBZAeKsLBUTUgEqcG8FiLN7tw+towJUoKwAcVaW qpDw337/+z/+5jeSUP6V78iRHiwUxiRUgAqMKVDFWfpWiVZVMy/YkTIr2XHva/pOi7oAlYrqpUnK//7Tn4Czv//tbxVn6cGhYpmYClCBigJVnOmtVa0X+9jKJjExlL3zjOSm/0MVbZYGnAnIgDP5jizpwUppTEMFqMCQAiWcxcewcadV+ri4C5r w8BMeSMJPepdWPXvHJYezGEW6Z0VhQAzu4oskh3RkYipABV6uQ Aln7jlEpVv6fKW4FKMeSYlbSftPm0OOoaDJ4cz+V58G15v4+68 MShvD8hE4Lr4j5OVNSwOowLspcB3OVFmlVZ2GxegsokdjLoRj7 u78IW6+W8+gv1TgcQqUcFafbLbCKxs0nYcz974z2xjigr5QKIK 102yMzh7Xp2nw2ypQwtnmC6bxAKOKGF+So7/ah7d1MriZXUpuvS4tTjbjZFAxJxXZ5yv77/5+2z5Bx6nAQxUo4UxpgsUjN4PTZX6VwEY0eilALxHsyC4lY7YY UdW5FIBXnoGDqBSGKdGinQ9tRZpNBaiAKFDF2aRYDjqTpTE7Fa ACVCAqQJyxV1ABKrCIAsTZIg1JN6gAFbgIZxSaClABKnC2AsTZ 2QqzfCpABS5SgDi7SGhWQwWowNkKEGdnK8zyqQAVuEiBWZzJ7V xy/+zPu3wcYHTnlg7cJrbMI5P/9b//91d/+3f/+J9/PkC12xTx13/8J3FK/v7wL/+xaZTdIGYz8akJdNfUy3pXawPDHW6mQ6azs/WOKp6SpYQzoZUwS/+sbzM4S9+hNo8zWPvxyo+xj8soN+HOY1poheGNP2vQGTgTmhzL R2u8sz+KK1WLAUXR45NzeqO19gF7BKBxu03367IdrLKZ1swzvK N5Lc6imx2/0vc7pOnF5YrXxfZ6RLIqzj5usP/xEUyYx5mmfNRQK33Nxu6i5c0d0vPV4Ho5yKUZj8KZjnAJWDaJU Lc2TXk4zlBL0Wxx8Hf/8K8VF2JskkZq8dk4+1iu3b4+Vlp5MZ/LNYokm300r8MZiqrYXMeZFGif4am0y9PTDONMHJZxjthHwIGQT aMYOQ7eSRr82gpwOo+16xlYn0aym1puTgfAI/n347km9JJfQstO1AacSQLYrDiz2d1PKL9DTxewCG4wC5Nhj8DH BlNyEMizoRyCuDSxTWkz4rhklIrS7LEiyW4DK7UTDjqcYS5pJ5 WxdmRsGR+flt3EmT6yhi/4uIdw9fhHo/9Ymoivseu8V9mRopVSZ6agbevdeWl290YDGJy+oMHWgj7fqghh AUI8t+WrG2VWnyW/78GZcMpCwUYxGrthuoe/9NN5h1p8M5rtvn2cSbujRls14rXND6gk8MImv+qXjUblOxKgFv wk31v7AjucgSNqiQum5FdlinwH6SxKFFLyaxoHuQJBE8s1fG9V ZFNauSLOUDum0prSRWet2jGAHWjs6FVg2VkY0ruXpvRfIoDxb/Hn2OHMcDizlNGUrRlcP2jS7G5GAulcEOqUcZFs52WC9v0OKPnA FbrN4XOHBMfjDAMbw34fzlSX2HKbIb0NqdwEeXMncg2yJKUYj6 JsaIZQVP1CegC0Re1RnLmVLxvd2JhLIeX6kMOZ44siUr/Y7IpayeUW8iPOkBHmtXDWqt0xBdn70ZmGWkM4Q8kWavF1T5Ydt ne1Uramb53IDlCWAq3xrbUztae1StjhZgqvt5pv7sGZW1Ry0Vk RZ53J5m6cpejR0rDS34Ga4ky+SDL4lU4kkQDTUvnSif7iZNMCK 0ZnDmetxfUzcCZsQmwYV8pejjOxSoaxIwIObi4+oAMgLOq8Ec+ V1kpZxFmavYOzGNpoRZXoDNmJs2GcYUXMfvbhzC5tpJcCYuS82 X3dpC8GTeBd62PJhWsCmKLGFUDEbiAjwKfrdK5wyyOsl9kEmzg DXOLFSsmYTjbdZLYz2UwvgCJ7LHkfzkYnm523P+lAtUTA/NScrn6sH6V0cx2sRcA42Ywp40tAYUD6jj+X3Zph3/FnvbBgQqTm3Oy8TDDijJPNZLDbGzXsFUP5bm/gwLSrGJ1JNTac1hg7Lpf8Gp29s7ELG2H2BwR/sbOziGZxhrxIbIM+dV/vBelf6rU3ari1dnsPBOCSzgHtfLNVgkpkE2MhzBqAI62KNLElX XqjhtKtP9ls1Z4O/tZkU/uDrp3pEbcohkmlEsRN1vS4nUVqCfZak1veQnXu+oPaoMrbYmFq WpEu59uzdcSZUkx+chdwY0WaPcKLlwISnN3nUH1ycR+bH2TJ0I 1jM369W9Qwo9VM3rdaOBOhSpPNGUEPzJtOPw8sn0WlE9uTZHm3 wOEkGTvF8jba6zXfrtFG18V13+1CmeLXCmBdr/Jk0oHK3echpwOduklRMlLe7ZGAh0VnN+koNIMKUIF7KvCkyeY9 FaRVVIAK3EQB4uwmDUEzqAAVmFWAOJtVkPmpABW4iQIDOPv+P9 8//c2nb/9eePoxc24ye1EvsbCY8lnJPv/hs7gmf1//+eum5ZBak12j/KZVNsENTYr2n9SXir6fVPtQM7nENzTJWzjknsMZBhj+NjFXbEW xR4buZmkwO6a8v+JDgiOxqCGe1jNegLN6G6Vm1ztD3etJky7rS 0Xfh3ry4b6nsg+ZVG+4A1OOxTLijzSGVq/uoYXsTzMm1tvmsi444858XonIvnz7eKKq9nE4q2UaS1Vvo7FyJ 1JPmnS3vjTEjsN9fwuc+dDOzGhUUBl4Mvw0akMWORiDOEyd7Bz KZsTxFiJbKREnunkZhncliowmWeM1CJXaYYB4DdcQTqYV2YP9q WLMHt3sjHebXQdDqnzaRi2VtASU2VI+zV7vDDPSDZkUBTypL9V 9d30MFqY9uW581BPjQuc96Or1EdcyqVjRxHlqIOtYdNbCGZQCe qQVdWYk3+200Z1DJAuCDmTXwuunmvSMGsu0hfejyJZJsE2jHnQ CNDD6BDiVVuREaDWOjXBdtFuMzhxVbUVOqLSNWsangaErsGX8U GdQg21fKi47SN6iSS39D+9Ldd8lZRS53xWdF/3QUvXUgQbUjo44NUmbu9XurYoGyLQr6SzONOrRMKozeiPOHCbw 30mcuTJdzLKJs2iShntwVhIoX1AacNaqCOzbnC06ZlkZKziz62 txshlx5jDRMr4llyuwZXyxM0xKl3abjp7pSOkQQfUc6ktF33EW jLMQPbtUlg5SlOvYtOWnvbE44mLM0e+0lW6/i1rNTLM4iwUPteIFOBtaR0/7kPYGG50BTxZn/YrAxA7UXouzlvHX4GxSustwNtSXhgbCsTjr2CndDCskneC9RYt RnMWKjoVXLO2OOHORcEeCmLLFo+KcJWa34TRWkVrRGejWqah/mp2cbNrs0o1sz4sBbzrSUuNbPdIp35lstgSJofpu6dBDiia1ut PhfamOs1TkoegsNT7qqZiTGu1kszji1CSdS3Ymm1hxchUtgjMM MP2D0K0GsyF9PGtZRWLKtEybTNf1UmXT7KCY/OmSWTrZlALTiqzvfaraWa11vDLZBGRhp12LTJVPR1pLJVuCiha VT41PK0pNmpTOiQ/1WnqmTX94X6r7jmGvowPmDeEsGh/1tAvc+FWJVhxx6ew1ityp6NY4O9s4lk8FqAAVqCswNdmsV8OUV IAKUIGzFSDOzlaY5VMBKnCRAsTZRUKzGipABc5WgDg7W2GWTwW owEUKEGcXCc1qqAAVOFsB4uxshVk+FaACFynwFjjDxqutPWUnl bb7d8guLW7zx8nCmZ0KUIG6AsfjzO77a/dDvWyLTIWX22TwDAPi7mpvuBtYvbcxJRU4VYHjcQZz48bOZ9Ak SiO1tPbjOtyA1t6377ZX66kdlIVTgboCVZzZkKey2aXFmW5kr4 Fb3PUeZUpKJAaVdHpot9qUBC33+ntrO5yl23embspB64LWjuPR GG6IW+9/TEkFDlSgijOtso8MTVaJzmwaRDSgBoI7oA28KO4vK4k7S1cOZ7 F2K6t1U2rXYq0lrSisKNGBrciiqAAV+MGNogoSPdlFsc1cmziz wRFKBs4wVdT/AmfA3OauznWcpbVLRambLZhGHy3NEYHyQwWowGUKVHGmkUgx9N jEmYAjRlItnEEOsKYDNSRoaWejs7R2xah8cdFZOr8mzi7rpqyI ClQUKOEMYxvhBlaXtGgQJI72ONTjSlPM2MeZo4wCztZevxQQa2 +52YnO0hCsSPxK8zANFaACdQVKOFOKYUkrLvNboNg5qU1p53fx UgAitRbO5Fct1tYFYxxMrQGoyGbX9NYeuzSG7NbNFs54KaDez5 iSClygQBVnF5jyuCp4o8bjmowGr60AcTbVvryNdko+ZqYChypA nM3KaaeiMu3dvPw6Wx/zUwEq0FCAOGPXoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsTZI g1JN6gAFSDO2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKIAcbZ IQ9INKkAFiDP2ASpABRZRgDhbpCHpBhWgAsQZ+wAVoAKLKECcL dKQdIMKUAHijH2AClCBRRQgzhZpSLpBBagAccY+QAWowCIKEGe LNCTdoAJUgDhjH6ACVGARBYizRRqSblABKkCcsQ9QASqwiALE2 SINSTeoABV4MM7a+50nzYpN5NLNzG/eCTp7rb/QqRdW3WqvG5p08661nnlVnH358pPgQ/8OEWKyzHmcyW7BxwLOSjRkHvS0OxmrYfM4a226HBvRCYIt7vVj 05/BjsnmOMOkQ/o5C7lMgQGcfft2sFWCs5kyd/DCOTA5flpy7DbM7dCOLdw7OKu0h/hY3ysv4kz3h7fbwlfq3ZHmpObYYQmzPFSBKZzJcNN4RMEkkPr6 tRTHpTizIZuFnT0OraVqSQADpMbOR8YzQgwNeTA47QfsiPGRpE RicKEyY3U4g3mbdrodiKUuOQKcaZSEI/IpBlzIGJVJ3YyCSHbFGSqFAVFPHLSqotI03rQlwLx6c7QqSk1K a7cHVc+Hjl6a7RQYwJmS6/Nn9NQfQ/QDAr/6LtxBgo+e14u/LKE0i9qH8rUcSexN//SjfPkAapufePKPR+zgl+/S9TUqkf8CbZtjIOKsYqfyC44o3aRehFcYh8CufvoRjRaivADQo 5sosBOdfbTm/xM2TSy/Kvt0K+W0Ivk1DRhd7dZf+z2tKDWpVfuxKwybHY8JLlOggIEGmO Q8bRGj5KpPIdOUGnCBnvgoN60u+qsFX0e4TZzZ8zZCFeAMY0//uwNnsKpvZwdnHXgVcWZHe+rmIThzmGhVFKGc1h7DVZRvt513zW 3VaNUOstcn4JcNRVY0r8DtcOYivitx5uZWqPoynHUmm7txFmeL ciR1s4Izh07330iZVkXX4KzjpjiLaTihNk+QW5WwH2edyWZxgT 9GZ7ZMTEV/Hma/igSVcZWop8MCFxAhBHMhxmU4a82tdMaULoSl1yKtC5gjO1q1Vg CdIJYIWJyyfXcTZ6mecrB1dcLV3plstmaLzqT+QifKv9VopDGT ClSbc3NiqEs6Q5PNePOHLqhh+dzAyF9eqE827cK57eJ2PhIvBW AlaAhn6Y0adTvtjRG6RhavV3SYgpmUG+2xBOu4Xex3glh73DUB W2ZnDtiqyLaIuhObIxUknWymTZzWXryKMjmumP0lClRx9hLjWO mmAry5YVMiJngfBYizB7d16z6MB7tE06nAhALE2YR4L8raupnr ReawWipwFwWIs7u0BO2gAlRgUgHibFJAZqcCVOAuChBnd2kJ2k EFqMCkAsTZpIDMTgWowF0UIM7u0hK0gwpQgUkFiLNJAZmdClCB uyhAnN2lJWgHFaACkwoQZ5MCMjsVoAJ3UYA4u0tL0A4qQAUmFS DOJgVkdipABe6iAHF2l5agHVSACkwqQJxNCsjsVIAK3EUB4uwu LUE7qAAVmFSAOJsUkNmpABW4iwLE2V1agnZQASowqQBxNikgs1 MBKnAXBYizu7QE7aACVGBSAeJsUkBmpwJU4C4KEGd3aQnaQQWo wKQCxNmkgMxOBajAXRQgzmZbIt19Nj2YbhC5WT326+1s9NvaQx cld3bGhZH97Jvm7UsQq75sB1+p2u4ZCvvTg/tcY64XKvAMnNlNam2/v2yXSWwBp9uJ2wYr4ky3H5a8cevyOMBcn0g9tWViTKpQCql5nK W+p/bUm2MSZ/WK0qElZwj5uJ/Sgy8cmax6hwLPwFkr0Jjs1nW9EFil0KngzKVxGJLCU1Ba86Kns V4NtfAT9lGfj3pS3ydxFpUfsnO+3VUfa0l6sN5JmPLlCrwSZzq NKk55bI+X8e9CNozeGKFISiSWMYAaEbnYlBWaIKpCLS67GmbLt NY6YDkS6SjqCBIHsCuzhUj4C63UTSktxnGtvgiIq++p8q3mgJF aF6pIp8+pnU5YyVtv934TO7lgWHrw5UOUBtQVeCXO1Mo0wKmcw OMgtxABJjAAEKcAbRjV9ZUswQGyaF6UZrEIa9ODOK4cREq1PA3 6oiCpp7bMFt2kakysbMim2m6GOanv1n7bTClzNaR1grvEqZ0RZ 049rT22e7+JKzF1fRQx5U0UeCXONGrA2XtTkZjGDQkXHCnOMJ7 1v8omHUL9qrUWXTC2DNKBkR5UzLkqNBCwGOoI0gc3hq6NMbV8K 1osZBNn0fcWUFLGdc4ZEWcRskWcpe2O00+nieM5Jj3xbHZLJri PAtsQOc9W7U9HRWdppGMHNoI1O+xBkLgwrF6nQ2UeZ+qyHVQdQ TZx1plsdmKxPs5amBiKzlpXTg/EWWtZE463mpg4O29ov6rkl+HMzn2wmKISoP/FYRCjs7iIHjP2cSaVOpi62h0mQENrPNahtBxMAPWgRmdusok0Y r/OxTqCpPhwo9FmTy8FwC/XzxxTKr6jhPTyRTy4IzqzdqqPTs9Ku1tP4/mSk81XEefUel+GMwwJTDN1eQuu4r8WZ0imnzR0ipcCQIoWzlrL 4a72dMCrkbBTMYG87mBr8Ec3U0GsnVaWOKTtXFXpaXVLkWp1Lv qu7Ebh6eURHExxlnqU2ql6uh5iw8ZWu+tJRVvEDiR3ltKO14nT Tx2HLPwQBV6Js0MceEQhxdn0kC+HlLm5djZk0oMSu9gWlqcHH+ QUTSXOLuoDaTgwWfdkmen0c9KkR2RP75hNDz7CHRqpChBn13WG +q0hdZt2lGlnai95wqnu3RkpxeU4o0wPnlE7yzxVAeLsVHlZOB WgAtcpQJxdpzVrogJU4FQFiLNT5WXhVIAKXKcAcXad1qyJClCB UxUgzk6Vl4VTgdcoEG+ZPs8OXFy6w2WlV+Js6BLb5B1Slex606 be0mkfhyr2hkpFxaKQjCpV5GrdaH14c1SMuUOaiDPcl6Ndeocy 7gFBdZM4+yGFEt0+lNPqCjvUt0UNZZ85sw1VVOn3VKneHDHl4c 1RabID09R9d5WmOBM19KG6Hcq0cHagv5NFvSw623xkWu96j0ET nmvBqQanZT3naCtuZu8I57pCjI/cs40woGXnTAtRJTR0UUObstUcsTW17fAUbX/elPa6+KK6VplDsXbFd6lICSXp9dE3eGFHBx7Ul/SYFSrOoknxwT59XjDOV1pvr4tjc9T3YqPbZNWOsqPofpbNF9q4 h3jiyUSaKr7JK+IMZgydi9z4sf/V52D0lnrnSKUi267ocK11h3dWSfvPPpy12j22pj4QqqelziKD9 rr0mQp3EtWTrsY1aV+qn1nTlNonLf7i6ADOxEKMGu2o0STLREm p59ROdOa6farSqO87mPNsnKnDsW02aVjsQxE9+sQ1hoG7xbyCs 3o7HYKzh6q0Yykzgs81R9qaOlzBhf6UKj1fxhfVpWV2+pLrEkO +ayexsbyVAiLoa5QkvViCgy1BEMQhjQoyhDN4pMOw7nt9dMSUL 8NZfRpVOc2ehzPtBFE7xPk7cFaPzt5ZpTOis7Q153Gm8ZGNztA xLCI7fak1hiuRKdiEgEvPtR2c4YkuxzhrABKAaHiUFbOHGZzt8 H0H116GM7v8b79rzxC5bZPE9+Horzbsr2cXsdwSWGv8pJNBbR6 sR2jeaOeOVtEsVMlOoDaVjIM/7TZuat/BWewhMTqzbYSFJDtBcxFfZ2Eh9a6CM4DM8SKODpvgxxWBjyyQ1 wkCPgLHAB8oOYOztKLNBh1N8DKcKU1ETTv5tyuIti1tRKOXApB 3X3Y0T9q9XB+yVeM0iF4OM/CrEi3aOdokLr2dyLh5LupdXqXKkNaegC/ufGA7SWzNDs5iD4k4w5hHFdocrTJj7f3uUfE9PTFbQdBtLM4sp lOTtEvbDuamwIAgwg79KCLhl13zGfV9x8B5Jc52mGuzFFt6spa nZ6dKT29B2l9XgDira/XIlMTZI5uNRu9SgDjbJdtzMhFnz2krWjqrwINxNus681MBKrCW AsTZWu1Jb6jAGytAnL1x49N1KrCWAsTZWu1Jb6jAGytAnL1x49 N1KrCWAiWcye1ycmei3voud5J+3EA39tmXa6wOpqYCVOCNFaji TGD0cT/8j88+MO3L9cZNQ9epABUYU2AAZxKdIShTMMmzExK14Q8/IY7T2A0xnfxpMnz5eOiCHypABajAkQoM4EwY9PFQ6i84s6/VU0iBaPKRxObR7J0x3ZG+siwqQAWWVmAAZyCUQA3RmQ3NXMyFc Azs0w8nm0t3JDpHBV6vwBjOhGICKYBJ/nQ1zfkhOJOfiLPXNy8toALvpMAYzjDT1DjLLpOpaIo5SWYnm27 u+U4i01cqQAWuUGAYZ3ax3843EanhV6z041clmk3MSwFXtC3ro AJvpkAJZ2+mCd2lAlTgkQoQZ49sNhpNBahAVIA4Y6+gAlRgEQW Is0Uakm5QASpAnLEPUAEqsIgCxNkiDUk3qAAVIM7YB6gAFVhEA eJskYakG1SAChBn7ANUgAosogBxtkhD0g0qQAWIM/YBKkAFFlGAOFukIekGFaACxBn7ABWgAosoQJwt0pB0gwpQAeKM fYAKUIFFFCDOFmlIukEFqABxxj5ABajAIgoQZ4s0JN2gAlSAOG MfoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsTZIg1JN6gAFSDO 2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKLAXwDHNECfKufzDg AAAABJRU5ErkJggg==http://uploadtak.com/images/a156_Untitled.png
حالا میخوام بدونم چطور میشه که فقط دایرکتوری هایی رو بنویسه که معمولین. یعنی نه سیستمی هستن نه هیدن. ممنون می شم راهنمایی کنید. در ضمن این برنامه رو تو ویژوال بیسیک 2010 نوشتم
اینم برنامم http://uploadtak.com/images/a156_Untitled.png
http://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAZoAAADQCAIAAAC x0DCKAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJc EhZcwAADsMAAA7DAcdvqGQAAB3eSURBVHhe7Z09riQ7coV7E7O J1hZmDfJ6I7OBlj2ejFnBeO0II0OQIUCuIE9ACwIkR8ZYgixt4 E30PXrx4kUEmcFkZlYm6xQuGtVZ/Ik4JL8MMn/46Sd+qAAVoAJLKPBpCS/oBBWgAlTgJ+KMnYAKUIFFFCDOFmlIukEFqABxxj5ABajAIgoQZ 4s0JN2gAlSAOGMfoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsT ZIg1JN6gAFSDO2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKIAc bZIQ9INKkAFboezT59OMen79+9S8rdv3/pN/uXLF0lWSblZjtYlVX/+/JldjQpQgbMVqLJDxzlGO8zCdzv+ZQzbg33rgRh8pHwtc7fPndq LOEPVQp9N8HWM/Pr1q7qDZPJfd2S3j8xIBahAS4EBnMURrlwDR6QO+aKRiIzqTqg Fvsi/zrKZ6Kxee79DzOAMfsXyU2fZL6kAFThQgcNwBopZoCDMEail5n ZwpkGW5rVxHKjqiIN6W7WnU0gbbzpSu8Jj7fDUxqFqqhSbuhxD tgNbkUVRASogCgzgTEevxl92PCPOckBpjW1Ij/DNrSvpxFMjPgs+/a4lIxQCLPq1t2KuGE/ZlGntP4T7ObR0lbaisFbUxl5IBajAUQoM4Kwz2dQxP4SzFGo6U 9Px7+IaYEsOykeDMvtflcbBNAZ0rWU+mzKtvY+zVttwvnlUr2U 5VCBV4BicYfYnAIrTveKaugx1pCziTBKDVvgCxvVrdzhTuPSjs xbO7FzVrgB21v6IMw5CKnCqAsfgTIlggYIBr9Zj8pjSzU7oIs7 S6R7ufsDlQvk3wtTVDuBq7bbMekrN1bn3gpPNU/srC6cCHQVmcabzNV07i0tsdlKpQHFL6Xo84gxLcq4ixHFYdNdL qDaZXZKT73Zeibo0vLJXYNOUae3pnSsolpcCOOSowEsUqOLsJc bdtlK9TAELLcJ4o8ZtW42GLa8AcbaniR3O3CSat9Hu0ZR5qMC0 AsTZTgnttDTOLnFpAkXjYsXOapiNClCBsgLEWVkqJqQCVODeCh Bn924fWkcFqEBZAeKsLBUTUgEqcG8FiLN7tw+towJUoKwAcVaW qpDw337/+z/+5jeSUP6V78iRHiwUxiRUgAqMKVDFWfpWiVZVMy/YkTIr2XHva/pOi7oAlYrqpUnK//7Tn4Czv//tbxVn6cGhYpmYClCBigJVnOmtVa0X+9jKJjExlL3zjOSm/0MVbZYGnAnIgDP5jizpwUppTEMFqMCQAiWcxcewcadV+ri4C5r w8BMeSMJPepdWPXvHJYezGEW6Z0VhQAzu4oskh3RkYipABV6uQ Aln7jlEpVv6fKW4FKMeSYlbSftPm0OOoaDJ4cz+V58G15v4+68 MShvD8hE4Lr4j5OVNSwOowLspcB3OVFmlVZ2GxegsokdjLoRj7 u78IW6+W8+gv1TgcQqUcFafbLbCKxs0nYcz974z2xjigr5QKIK 102yMzh7Xp2nw2ypQwtnmC6bxAKOKGF+So7/ah7d1MriZXUpuvS4tTjbjZFAxJxXZ5yv77/5+2z5Bx6nAQxUo4UxpgsUjN4PTZX6VwEY0eilALxHsyC4lY7YY UdW5FIBXnoGDqBSGKdGinQ9tRZpNBaiAKFDF2aRYDjqTpTE7Fa ACVCAqQJyxV1ABKrCIAsTZIg1JN6gAFbgIZxSaClABKnC2AsTZ 2QqzfCpABS5SgDi7SGhWQwWowNkKEGdnK8zyqQAVuEiBWZzJ7V xy/+zPu3wcYHTnlg7cJrbMI5P/9b//91d/+3f/+J9/PkC12xTx13/8J3FK/v7wL/+xaZTdIGYz8akJdNfUy3pXawPDHW6mQ6azs/WOKp6SpYQzoZUwS/+sbzM4S9+hNo8zWPvxyo+xj8soN+HOY1poheGNP2vQGTgTmhzL R2u8sz+KK1WLAUXR45NzeqO19gF7BKBxu03367IdrLKZ1swzvK N5Lc6imx2/0vc7pOnF5YrXxfZ6RLIqzj5usP/xEUyYx5mmfNRQK33Nxu6i5c0d0vPV4Ho5yKUZj8KZjnAJWDaJU Lc2TXk4zlBL0Wxx8Hf/8K8VF2JskkZq8dk4+1iu3b4+Vlp5MZ/LNYokm300r8MZiqrYXMeZFGif4am0y9PTDONMHJZxjthHwIGQT aMYOQ7eSRr82gpwOo+16xlYn0aym1puTgfAI/n347km9JJfQstO1AacSQLYrDiz2d1PKL9DTxewCG4wC5Nhj8DH BlNyEMizoRyCuDSxTWkz4rhklIrS7LEiyW4DK7UTDjqcYS5pJ5 WxdmRsGR+flt3EmT6yhi/4uIdw9fhHo/9Ymoivseu8V9mRopVSZ6agbevdeWl290YDGJy+oMHWgj7fqghh AUI8t+WrG2VWnyW/78GZcMpCwUYxGrthuoe/9NN5h1p8M5rtvn2cSbujRls14rXND6gk8MImv+qXjUblOxKgFv wk31v7AjucgSNqiQum5FdlinwH6SxKFFLyaxoHuQJBE8s1fG9V ZFNauSLOUDum0prSRWet2jGAHWjs6FVg2VkY0ruXpvRfIoDxb/Hn2OHMcDizlNGUrRlcP2jS7G5GAulcEOqUcZFs52WC9v0OKPnA FbrN4XOHBMfjDAMbw34fzlSX2HKbIb0NqdwEeXMncg2yJKUYj6 JsaIZQVP1CegC0Re1RnLmVLxvd2JhLIeX6kMOZ44siUr/Y7IpayeUW8iPOkBHmtXDWqt0xBdn70ZmGWkM4Q8kWavF1T5Ydt ne1Uramb53IDlCWAq3xrbUztae1StjhZgqvt5pv7sGZW1Ry0Vk RZ53J5m6cpejR0rDS34Ga4ky+SDL4lU4kkQDTUvnSif7iZNMCK 0ZnDmetxfUzcCZsQmwYV8pejjOxSoaxIwIObi4+oAMgLOq8Ec+ V1kpZxFmavYOzGNpoRZXoDNmJs2GcYUXMfvbhzC5tpJcCYuS82 X3dpC8GTeBd62PJhWsCmKLGFUDEbiAjwKfrdK5wyyOsl9kEmzg DXOLFSsmYTjbdZLYz2UwvgCJ7LHkfzkYnm523P+lAtUTA/NScrn6sH6V0cx2sRcA42Ywp40tAYUD6jj+X3Zph3/FnvbBgQqTm3Oy8TDDijJPNZLDbGzXsFUP5bm/gwLSrGJ1JNTac1hg7Lpf8Gp29s7ELG2H2BwR/sbOziGZxhrxIbIM+dV/vBelf6rU3ari1dnsPBOCSzgHtfLNVgkpkE2MhzBqAI62KNLElX XqjhtKtP9ls1Z4O/tZkU/uDrp3pEbcohkmlEsRN1vS4nUVqCfZak1veQnXu+oPaoMrbYmFq WpEu59uzdcSZUkx+chdwY0WaPcKLlwISnN3nUH1ycR+bH2TJ0I 1jM369W9Qwo9VM3rdaOBOhSpPNGUEPzJtOPw8sn0WlE9uTZHm3 wOEkGTvF8jba6zXfrtFG18V13+1CmeLXCmBdr/Jk0oHK3echpwOduklRMlLe7ZGAh0VnN+koNIMKUIF7KvCkyeY9 FaRVVIAK3EQB4uwmDUEzqAAVmFWAOJtVkPmpABW4iQIDOPv+P9 8//c2nb/9eePoxc24ye1EvsbCY8lnJPv/hs7gmf1//+eum5ZBak12j/KZVNsENTYr2n9SXir6fVPtQM7nENzTJWzjknsMZBhj+NjFXbEW xR4buZmkwO6a8v+JDgiOxqCGe1jNegLN6G6Vm1ztD3etJky7rS 0Xfh3ry4b6nsg+ZVG+4A1OOxTLijzSGVq/uoYXsTzMm1tvmsi444858XonIvnz7eKKq9nE4q2UaS1Vvo7FyJ 1JPmnS3vjTEjsN9fwuc+dDOzGhUUBl4Mvw0akMWORiDOEyd7Bz KZsTxFiJbKREnunkZhncliowmWeM1CJXaYYB4DdcQTqYV2YP9q WLMHt3sjHebXQdDqnzaRi2VtASU2VI+zV7vDDPSDZkUBTypL9V 9d30MFqY9uW581BPjQuc96Or1EdcyqVjRxHlqIOtYdNbCGZQCe qQVdWYk3+200Z1DJAuCDmTXwuunmvSMGsu0hfejyJZJsE2jHnQ CNDD6BDiVVuREaDWOjXBdtFuMzhxVbUVOqLSNWsangaErsGX8U GdQg21fKi47SN6iSS39D+9Ldd8lZRS53xWdF/3QUvXUgQbUjo44NUmbu9XurYoGyLQr6SzONOrRMKozeiPOHCbw 30mcuTJdzLKJs2iShntwVhIoX1AacNaqCOzbnC06ZlkZKziz62 txshlx5jDRMr4llyuwZXyxM0xKl3abjp7pSOkQQfUc6ktF33EW jLMQPbtUlg5SlOvYtOWnvbE44mLM0e+0lW6/i1rNTLM4iwUPteIFOBtaR0/7kPYGG50BTxZn/YrAxA7UXouzlvHX4GxSustwNtSXhgbCsTjr2CndDCskneC9RYt RnMWKjoVXLO2OOHORcEeCmLLFo+KcJWa34TRWkVrRGejWqah/mp2cbNrs0o1sz4sBbzrSUuNbPdIp35lstgSJofpu6dBDiia1ut PhfamOs1TkoegsNT7qqZiTGu1kszji1CSdS3Ymm1hxchUtgjMM MP2D0K0GsyF9PGtZRWLKtEybTNf1UmXT7KCY/OmSWTrZlALTiqzvfaraWa11vDLZBGRhp12LTJVPR1pLJVuCiha VT41PK0pNmpTOiQ/1WnqmTX94X6r7jmGvowPmDeEsGh/1tAvc+FWJVhxx6ew1ityp6NY4O9s4lk8FqAAVqCswNdmsV8OUV IAKUIGzFSDOzlaY5VMBKnCRAsTZRUKzGipABc5WgDg7W2GWTwW owEUKEGcXCc1qqAAVOFsB4uxshVk+FaACFynwFjjDxqutPWUnl bb7d8guLW7zx8nCmZ0KUIG6AsfjzO77a/dDvWyLTIWX22TwDAPi7mpvuBtYvbcxJRU4VYHjcQZz48bOZ9Ak SiO1tPbjOtyA1t6377ZX66kdlIVTgboCVZzZkKey2aXFmW5kr4 Fb3PUeZUpKJAaVdHpot9qUBC33+ntrO5yl23embspB64LWjuPR GG6IW+9/TEkFDlSgijOtso8MTVaJzmwaRDSgBoI7oA28KO4vK4k7S1cOZ7 F2K6t1U2rXYq0lrSisKNGBrciiqAAV+MGNogoSPdlFsc1cmziz wRFKBs4wVdT/AmfA3OauznWcpbVLRambLZhGHy3NEYHyQwWowGUKVHGmkUgx9N jEmYAjRlItnEEOsKYDNSRoaWejs7R2xah8cdFZOr8mzi7rpqyI ClQUKOEMYxvhBlaXtGgQJI72ONTjSlPM2MeZo4wCztZevxQQa2 +52YnO0hCsSPxK8zANFaACdQVKOFOKYUkrLvNboNg5qU1p53fx UgAitRbO5Fct1tYFYxxMrQGoyGbX9NYeuzSG7NbNFs54KaDez5 iSClygQBVnF5jyuCp4o8bjmowGr60AcTbVvryNdko+ZqYChypA nM3KaaeiMu3dvPw6Wx/zUwEq0FCAOGPXoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsTZI g1JN6gAFSDO2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKIAcbZ IQ9INKkAFiDP2ASpABRZRgDhbpCHpBhWgAsQZ+wAVoAKLKECcL dKQdIMKUAHijH2AClCBRRQgzhZpSLpBBagAccY+QAWowCIKEGe LNCTdoAJUgDhjH6ACVGARBYizRRqSblABKkCcsQ9QASqwiALE2 SINSTeoABV4MM7a+50nzYpN5NLNzG/eCTp7rb/QqRdW3WqvG5p08661nnlVnH358pPgQ/8OEWKyzHmcyW7BxwLOSjRkHvS0OxmrYfM4a226HBvRCYIt7vVj 05/BjsnmOMOkQ/o5C7lMgQGcfft2sFWCs5kyd/DCOTA5flpy7DbM7dCOLdw7OKu0h/hY3ysv4kz3h7fbwlfq3ZHmpObYYQmzPFSBKZzJcNN4RMEkkPr6 tRTHpTizIZuFnT0OraVqSQADpMbOR8YzQgwNeTA47QfsiPGRpE RicKEyY3U4g3mbdrodiKUuOQKcaZSEI/IpBlzIGJVJ3YyCSHbFGSqFAVFPHLSqotI03rQlwLx6c7QqSk1K a7cHVc+Hjl6a7RQYwJmS6/Nn9NQfQ/QDAr/6LtxBgo+e14u/LKE0i9qH8rUcSexN//SjfPkAapufePKPR+zgl+/S9TUqkf8CbZtjIOKsYqfyC44o3aRehFcYh8CufvoRjRaivADQo 5sosBOdfbTm/xM2TSy/Kvt0K+W0Ivk1DRhd7dZf+z2tKDWpVfuxKwybHY8JLlOggIEGmO Q8bRGj5KpPIdOUGnCBnvgoN60u+qsFX0e4TZzZ8zZCFeAMY0//uwNnsKpvZwdnHXgVcWZHe+rmIThzmGhVFKGc1h7DVZRvt513zW 3VaNUOstcn4JcNRVY0r8DtcOYivitx5uZWqPoynHUmm7txFmeL ciR1s4Izh07330iZVkXX4KzjpjiLaTihNk+QW5WwH2edyWZxgT 9GZ7ZMTEV/Hma/igSVcZWop8MCFxAhBHMhxmU4a82tdMaULoSl1yKtC5gjO1q1Vg CdIJYIWJyyfXcTZ6mecrB1dcLV3plstmaLzqT+QifKv9VopDGT ClSbc3NiqEs6Q5PNePOHLqhh+dzAyF9eqE827cK57eJ2PhIvBW AlaAhn6Y0adTvtjRG6RhavV3SYgpmUG+2xBOu4Xex3glh73DUB W2ZnDtiqyLaIuhObIxUknWymTZzWXryKMjmumP0lClRx9hLjWO mmAry5YVMiJngfBYizB7d16z6MB7tE06nAhALE2YR4L8raupnr ReawWipwFwWIs7u0BO2gAlRgUgHibFJAZqcCVOAuChBnd2kJ2k EFqMCkAsTZpIDMTgWowF0UIM7u0hK0gwpQgUkFiLNJAZmdClCB uyhAnN2lJWgHFaACkwoQZ5MCMjsVoAJ3UYA4u0tL0A4qQAUmFS DOJgVkdipABe6iAHF2l5agHVSACkwqQJxNCsjsVIAK3EUB4uwu LUE7qAAVmFSAOJsUkNmpABW4iwLE2V1agnZQASowqQBxNikgs1 MBKnAXBYizu7QE7aACVGBSAeJsUkBmpwJU4C4KEGd3aQnaQQWo wKQCxNmkgMxOBajAXRQgzmZbIt19Nj2YbhC5WT326+1s9NvaQx cld3bGhZH97Jvm7UsQq75sB1+p2u4ZCvvTg/tcY64XKvAMnNlNam2/v2yXSWwBp9uJ2wYr4ky3H5a8cevyOMBcn0g9tWViTKpQCql5nK W+p/bUm2MSZ/WK0qElZwj5uJ/Sgy8cmax6hwLPwFkr0Jjs1nW9EFil0KngzKVxGJLCU1Ba86Kns V4NtfAT9lGfj3pS3ydxFpUfsnO+3VUfa0l6sN5JmPLlCrwSZzq NKk55bI+X8e9CNozeGKFISiSWMYAaEbnYlBWaIKpCLS67GmbLt NY6YDkS6SjqCBIHsCuzhUj4C63UTSktxnGtvgiIq++p8q3mgJF aF6pIp8+pnU5YyVtv934TO7lgWHrw5UOUBtQVeCXO1Mo0wKmcw OMgtxABJjAAEKcAbRjV9ZUswQGyaF6UZrEIa9ODOK4cREq1PA3 6oiCpp7bMFt2kakysbMim2m6GOanv1n7bTClzNaR1grvEqZ0RZ 049rT22e7+JKzF1fRQx5U0UeCXONGrA2XtTkZjGDQkXHCnOMJ7 1v8omHUL9qrUWXTC2DNKBkR5UzLkqNBCwGOoI0gc3hq6NMbV8K 1osZBNn0fcWUFLGdc4ZEWcRskWcpe2O00+nieM5Jj3xbHZLJri PAtsQOc9W7U9HRWdppGMHNoI1O+xBkLgwrF6nQ2UeZ+qyHVQdQ TZx1plsdmKxPs5amBiKzlpXTg/EWWtZE463mpg4O29ov6rkl+HMzn2wmKISoP/FYRCjs7iIHjP2cSaVOpi62h0mQENrPNahtBxMAPWgRmdusok0Y r/OxTqCpPhwo9FmTy8FwC/XzxxTKr6jhPTyRTy4IzqzdqqPTs9Ku1tP4/mSk81XEefUel+GMwwJTDN1eQuu4r8WZ0imnzR0ipcCQIoWzlrL 4a72dMCrkbBTMYG87mBr8Ec3U0GsnVaWOKTtXFXpaXVLkWp1Lv qu7Ebh6eURHExxlnqU2ql6uh5iw8ZWu+tJRVvEDiR3ltKO14nT Tx2HLPwQBV6Js0MceEQhxdn0kC+HlLm5djZk0oMSu9gWlqcHH+ QUTSXOLuoDaTgwWfdkmen0c9KkR2RP75hNDz7CHRqpChBn13WG +q0hdZt2lGlnai95wqnu3RkpxeU4o0wPnlE7yzxVAeLsVHlZOB WgAtcpQJxdpzVrogJU4FQFiLNT5WXhVIAKXKcAcXad1qyJClCB UxUgzk6Vl4VTgdcoEG+ZPs8OXFy6w2WlV+Js6BLb5B1Slex606 be0mkfhyr2hkpFxaKQjCpV5GrdaH14c1SMuUOaiDPcl6Ndeocy 7gFBdZM4+yGFEt0+lNPqCjvUt0UNZZ85sw1VVOn3VKneHDHl4c 1RabID09R9d5WmOBM19KG6Hcq0cHagv5NFvSw623xkWu96j0ET nmvBqQanZT3naCtuZu8I57pCjI/cs40woGXnTAtRJTR0UUObstUcsTW17fAUbX/elPa6+KK6VplDsXbFd6lICSXp9dE3eGFHBx7Ul/SYFSrOoknxwT59XjDOV1pvr4tjc9T3YqPbZNWOsqPofpbNF9q4 h3jiyUSaKr7JK+IMZgydi9z4sf/V52D0lnrnSKUi267ocK11h3dWSfvPPpy12j22pj4QqqelziKD9 rr0mQp3EtWTrsY1aV+qn1nTlNonLf7i6ADOxEKMGu2o0STLREm p59ROdOa6farSqO87mPNsnKnDsW02aVjsQxE9+sQ1hoG7xbyCs 3o7HYKzh6q0Yykzgs81R9qaOlzBhf6UKj1fxhfVpWV2+pLrEkO +ayexsbyVAiLoa5QkvViCgy1BEMQhjQoyhDN4pMOw7nt9dMSUL 8NZfRpVOc2ehzPtBFE7xPk7cFaPzt5ZpTOis7Q153Gm8ZGNztA xLCI7fak1hiuRKdiEgEvPtR2c4YkuxzhrABKAaHiUFbOHGZzt8 H0H116GM7v8b79rzxC5bZPE9+Horzbsr2cXsdwSWGv8pJNBbR6 sR2jeaOeOVtEsVMlOoDaVjIM/7TZuat/BWewhMTqzbYSFJDtBcxFfZ2Eh9a6CM4DM8SKODpvgxxWBjyyQ1 wkCPgLHAB8oOYOztKLNBh1N8DKcKU1ETTv5tyuIti1tRKOXApB 3X3Y0T9q9XB+yVeM0iF4OM/CrEi3aOdokLr2dyLh5LupdXqXKkNaegC/ufGA7SWzNDs5iD4k4w5hHFdocrTJj7f3uUfE9PTFbQdBtLM4sp lOTtEvbDuamwIAgwg79KCLhl13zGfV9x8B5Jc52mGuzFFt6spa nZ6dKT29B2l9XgDira/XIlMTZI5uNRu9SgDjbJdtzMhFnz2krWjqrwINxNus681MBKrCW AsTZWu1Jb6jAGytAnL1x49N1KrCWAsTZWu1Jb6jAGytAnL1x49 N1KrCWAiWcye1ycmei3voud5J+3EA39tmXa6wOpqYCVOCNFaji TGD0cT/8j88+MO3L9cZNQ9epABUYU2AAZxKdIShTMMmzExK14Q8/IY7T2A0xnfxpMnz5eOiCHypABajAkQoM4EwY9PFQ6i84s6/VU0iBaPKRxObR7J0x3ZG+siwqQAWWVmAAZyCUQA3RmQ3NXMyFc Azs0w8nm0t3JDpHBV6vwBjOhGICKYBJ/nQ1zfkhOJOfiLPXNy8toALvpMAYzjDT1DjLLpOpaIo5SWYnm27 u+U4i01cqQAWuUGAYZ3ax3843EanhV6z041clmk3MSwFXtC3ro AJvpkAJZ2+mCd2lAlTgkQoQZ49sNhpNBahAVIA4Y6+gAlRgEQW Is0Uakm5QASpAnLEPUAEqsIgCxNkiDUk3qAAVIM7YB6gAFVhEA eJskYakG1SAChBn7ANUgAosogBxtkhD0g0qQAWIM/YBKkAFFlGAOFukIekGFaACxBn7ABWgAosoQJwt0pB0gwpQAeKM fYAKUIFFFCDOFmlIukEFqABxxj5ABajAIgoQZ4s0JN2gAlSAOG MfoAJUYBEFiLNFGpJuUAEqQJyxD1ABKrCIAsTZIg1JN6gAFSDO 2AeoABVYRAHibJGGpBtUgAoQZ+wDVIAKLKLAXwDHNECfKufzDg AAAABJRU5ErkJggg==http://uploadtak.com/images/a156_Untitled.png