Sub RegisterDevice ()
Dim i As Intent
Dim i2 As Intent
Dim r As Reflector
i.Initialize("com.google.android.c2dm.intent.REGISTER", "")
i.PutExtra("sender", MainCadastro.SenderId)
i2 = r.CreateObject("android.content.Intent")
Dim pi As Object
pi = r.RunStaticMethod("android.app.PendingIntent", "getBroadcast", _
Array As Object(r.GetContext, 0, i2, 0), _
Array As String("android.content.Context", "java.lang.int", "android.content.Intent", "java.lang.int"))
'it runs fine until the line bellow ...
i.PutExtra("app", pi)
'it fails on the line bellow
StartService(i)
End Sub