Android Question Vibrate effect with unlimited duration

Sub Activity_Create(FirstTime As Boolean)
   Dim v As PhoneVibrate
   v.Vibrate(10000000)
End Sub

Sub Activity_Click
   Dim v As JavaObject = GetContext
   v = v.RunMethodJO("getSystemService", Array ("vibrator")).RunMethod("cancel", Null)
End Sub

Sub GetContext As JavaObject
  Return GetBA.GetField("context")
End Sub

Sub GetBA As JavaObject
  Dim jo As JavaObject
  Dim cls As String = Me
  cls = cls.SubString("class ".Length)
  jo.InitializeStatic(cls)
  Return jo.GetFieldJO("processBA")
End Sub

   Dim telMgr1 As JavaObject = GetContext.RunMethod("getSystemService", Array("vibrator"))
   Dim vib As Boolean = telMgr1.RunMethod("hasVibrator", Null)
   Log(vib)
 

   telMgr1.RunMethod("vibrate", Array As Object(2000))