مسیج باکس درباره ما و تبیلغ برنامه

[aloneboy7617 155]

سلام دویتان من چند وقت پیش این سورس رو از سایت گرفتم

	If Position = 4 Then
	Msgbox2("طراح و برنامه نویس :محمد بابایی" &CRLF&""&CRLF&"*****فراموش نشه لطفا" &CRLF&""&CRLF&"برنامه بانکــــــدونی رو از دست ندین"," ","باشه","بانکـــدونی","",LoadBitmap(File.DirAssets,"2.png"))
	End If

حالا خودم اومدم به جز دکمه باشه که داره یه دکمه دیگه اضافه کردم به اسم بانکدونی حالا میخوام وقتی کاربر رو اون کلیک میکنه اون برنامه منو که این آدرسشه http://cafebazaar.ir/app/ir.tarhaibartar.bankdooni/  

رو باز کنه

ممنون میشم راهنمایی کنید

[aloneboy7617 155]

دوستان یکی راهنمایی کنه لطفا خیلی ضروریه

[aloneboy7617 155]

آقا خودم فهمیدم

اینم سورسش کسی خواست استفاده کنه

Dim v As Int
v =	Msgbox2("طراح و برنامه نویس :محمد بابایی" &CRLF&""&CRLF&"*****فراموش نشه لطفا" &CRLF&""&CRLF&"برنامه بانکــــــدونی رو از دست ندین"," ","برنامه بانکـدونی","بازگشت","",LoadBitmap(File.DirAssets,"2.png"))
	If ( v = DialogResponse.POSITIVE) Then ' Age Mosbat Bood
	Dim dostmobile As PhoneIntents
StartActivity(dostmobile.OpenBrowser("http://cafebazaar.ir/app/ir.tarhaibartar.bankdooni/?l=fa")) ' باز کردن اون لینک مورد نظر 
	End If