Haptic Touch

Private FeedbackGenerator As NativeObject  'globals

'Call CreateGenerator in AppStart.


' Strength - LIGHT, MEDIUM, HEAVY
Sub CreateGenerator (Strength As String)
   FeedbackGenerator.Initialize("UIImpactFeedbackGenerator")
    If FeedbackGenerator.IsInitialized Then
        Dim s As Int = 0
        Select Strength 
            Case "LIGHT"
                s = 0
            Case "MEDIUM"
                s = 1
            Case "HEAVY"
                s = 2
        End Select
        FeedbackGenerator = FeedbackGenerator.RunMethod("alloc", Null).RunMethod("initWithStyle:", Array(s))
    End If
End Sub

Sub Vibrate
 If FeedbackGenerator.IsInitialized Then
   FeedbackGenerator.RunMethod("impactOccurred", Null)
 End If
End Sub