مشکل در پرداخت درون برنامه ای

سلام خدمت همه اساتید .

برای برنامم پرداخت درون برنامه ای گذاشتم ولی زمانیکه برای تست برنامه و عملکردش رو گزینه مربوطه کلیک میکنم که پرداخت انجام بگیره یک پیغام از طرف بازار میاد و نوشته لطفا صبر کنید . البته این پیغام در حد یک ثانیه میاد و میره و بعدشم هیچ اتفاقی نمیوفته و تو قسمت لُگ برنامه بیسیک همچین چیزی مینویسه . کسی میدونه مشکل کجاست ؟

**requestCode = 1~i:** Activity (buy) Pause, UserClosed = false

sending message to waiting queue (OnActivityResult)running waiting messages (1)Arrived: 1, 1

اینم کدی که تو برنامه موجوده :

Sub Process_Globals
	Dim bm As BillingManager3
	Dim key As String = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBr......"
End Sub
  
  Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("buylayout")
  bm.Initialize("bm", key)
  	If File.Exists(File.DirInternal,"k.txt")=True Then
'		bsbanner.DisableBannerAds
'	Else
'        bsbanner.EnableBannerAds		
'	End If
  End Sub
  
  Sub Label6_Click
  Try
		bm.RequestPayment("full","inapp","test")
'	Catch
'		Msgbox("لطفا مارکت بازار را نصب و سپس اقدام نمایید","مارکت بازار")
'	End Try
  End Sub
  
  Sub bm_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success=True Then
		ToastMessageShow("با موفقیت پرداخت شد",True)
		File.Writestring(File.DirInternal,"k.txt","as")
		bsbanner.DisableBannerAds
	Else
		ToastMessageShow("خطا در پرداخت",True)
	End If
End Sub