کامپوننت : مسج بوکس فارسی

این کامپوننت که خودم نوشتم یک مسج باکس فارسی هست
مزیتش اینه که همون مسج باکس عمومی ویژوال بیسیک هست که نوشته دکمه های آن را فارسی کرده و راست به چپ نمایش می‌ده و شاید همین مقدار خیلی برای برخی مهم باشه.
نکته دیگر این که این کامپوننت، دو جعبه دیالوگ دیگر هم دارد :

• Inputbox که می تونید چند خط متن وارد کنید و راست به چپ و فارسی هست.
• OptionBox که کاملا ابداع و اختراع خودم هست و شما می تونید به کاربر چند گزینه بدید و بخواهید یکی رو انتخاب کنه، خروجی این فرمان،‌ یک مقدار عددی هست که نشانگر شماره گزینه‌ای است که کاربر انتخاب کرده است. به این ترتیب خوانائی برنامه بالا می رود.

سورس این برنامه چون بی ارتباط به این انجمن است (به زبان وی بی 6 نوشته شده) ،‌در این آدرس آپلود کردم

بعد از رفرنس باید این کد ها رو بنویسید که البته همه آشنا هستند

Imports BoxinOut

Module myMsg

Dim mss AsNew Msg

PublicFunction MsgBox(ByVal Prompt AsString, OptionalByVal style As MsgBoxStyle = MsgBoxStyle.OkOnly, OptionalByVal Title AsString = "") As MsgBoxResult

Return mss.MsgFox(FrmMain.Handle.ToInt32, Prompt, style, Title)

EndFunction

PublicFunction InputBox(ByVal Prompt AsString, OptionalByVal Title AsString = "", OptionalByVal DefualtStr AsString = "") AsString

Return mss.InputBox(Prompt, Title, DefualtStr)

EndFunction

PublicFunction OptionBox(ByVal Prompt AsString, ByVal Items() AsString, OptionalByVal Title AsString = "", OptionalByVal DefaultIndex AsInteger = 0, OptionalByVal ListMode As BoxinOut.OptionStyle = OptionStyle.ComboMod) AsInteger

Return mss.OptionBox(Prompt, Items, Title, DefaultIndex, ListMode)

EndFunction

EndModule

دوست عزیز کامپوننت رو دانلود کردم ولی این ارور رو به من دادhttps://barnamenevis.org/E:\1.JPG

تصوير واضح نيست ، اصل متنش رو بنويسيد.
فکر کنم نسخه جديدش رو که با وي بي دات نت نوشتم تو همين سايت بود يک جستجو بکنيد
من جديدترين ويرايشش رو اين جا مي ذارم اين رو امتحان کنيد