Sub IsFirstResponder(V As NativeObject) As Boolean
Return V.RunMethod("isFirstResponder",Null).AsBoolean
End Sub
Sub pg_KeyboardStateChanged (Height As Float)
If Height = 0 Then
pg.RootPanel.Top = 0
Else
For Each V As View In pg.RootPanel.GetAllViewsRecursive
If IsFirstResponder(V) Then pg.RootPanel.Top = Min(0,pg.RootPanel.Top - (Height - (pg.RootPanel.Height - (V.Top + V.Height))))
Next
End If
End Sub