Sub Button1_Click
Dim jo As JavaObject
Dim key As String="rzp_test_xxxxxxxx"
jo.InitializeNewInstance("com.razorpay.Checkout", Null)
jo.RunMethodJO("setKeyID",Array(key))
Dim Map1,Map2 As Map
Map1.Initialize
Map2.Initialize
Dim JSONGenerator1 As JSONGenerator
Map2.put("email", "[email protected]")
Map2.put("contact", "9876543210")
JSONGenerator1.Initialize(Map2)
Dim JSONGenerator As JSONGenerator
Map1.put("name", "Lito")
Map1.put("description", "Fare")
Map1.put("currency", "INR")
Map1.put("amount", "100")
Map1.put("prefill", JSONGenerator1.ToString)
JSONGenerator.Initialize(Map1)
Log(JSONGenerator.ToString)
jo.RunMethodJO("open",Array(act,JSONGenerator))
End Sub