For Each v As View In pnlMainInfo.GetAllViewsRecursive
If((v Is TextField And Not(Found)) ) Then
Dim txtf As TextField = v
If(txtf.IsFocused) Then
Found = True
KeyDifference = txtf.CalcRelativeKeyboardHeight(Height)
If(KeyDifference <0) Then
rx.sv.ScrollTo(0,-(KeyDifference-100),True)
End If
End If
Else if(v Is TextView And Not(Found)) Then
Dim txtv As TextView = v
If(txtv.IsFocused) Then
Found = True
KeyDifference = txtv.CalcRelativeKeyboardHeight(Height)
If(KeyDifference <0) Then
rx.sv.ScrollTo(0,-(KeyDifference-100),True)
End If
End If
End If
Next
If(Not(Found)) Then
rx.sv.ScrollTo(0,0,True)
End If