Sub RumblePattern(Pattern() As Long)
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "vibrator", "java.lang.String")
r.RunMethod4("vibrate", Array As Object(Pattern, 0), Array As String("[J", "java.lang.int"))
End Sub
RumblePattern( Array As Long(75,50, 75,50, 75,50, 75, 25, 75,25, 75,12, 75,12))