Dim in As Intent
in = Activity.GetStartingIntent
If in <> Null Then
'check some key to find out if the payment attempt was successful
If in.HasExtra("Result") Then 'Result is not a real key name
Dim Result As Int =in.GetExtra("Result")
Log("Result=" & Result )
Log("in.ExtrasToString=" & in.ExtrasToString)
If Result=1 Then
Log("paid successfully")
Else
Log("payment failed")
End If
Else
Dim in2 As Intent
in2.Initialize("com.paypal.android.p2pmobile.REQUEST","") 'initialized to paypal
in2.AddCategory("android.intent.category.DEFAULT")
in2.PutExtra("Callback","com.ddg.myrequestor.CALLBACK")
in2.PutExtra("MyAccountNo","123xyz") 'this will be my palpal account #. User's payment will be deposited into this account
in2.PutExtra("Amount","123.45") 'amount user owes me
StartActivity(in2)
End If
End If