AddPermission("android.permission.CAMERA")
Cam.InitializeStatic("android.hardware.Camera")
Cam = Cam.RunMethod("open",Null)
Dim Par As JavaObject = Cam.RunMethod("getParameters",Null)
Par.RunMethod("setFlashMode",Array As Object("torch"))
Cam.RunMethod("setParameters",Array As Object(Par))
Cam.RunMethod("release",Null)
AddPermission("android.permission.FLASHLIGHT")
AddManifestText("android.permission-group.HARDWARE_CONTROLS")