HELP WANTED: Question on autoscroll with Input Panel and Tab Control VB.Net Compact Framework

My code is set to fire when a user clicks inside a textbox and triggers the following event in GotFocus

        If Not InputPanel1 Is Nothing Then
            If InputPanel1.Enabled = False Then
                InputPanel1.Enabled = True
            End If
        End If


That fires the following code:


Private Sub InputPanel1_EnabledChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputPanel1.EnabledChanged
        If InputPanel1.Enabled = False Then
            For Each Me.tbPge In tabNOG.TabPages
                tbPge.AutoScroll = False
            Next

            tabNOG.Height = 267
            tabNOG.Width = 240
        Else
            ' The SIP is enabled, so the height of the tab control
            ' is set to the height of the visible desktop area.
            For Each Me.tbPge In tabNOG.TabPages
                tbPge.AutoScroll = True
                tbPge.AutoScrollMargin = New Size(5, 5)
                Dim ctrl As Control
                For Each ctrl In tbPge.Controls
                    If TypeOf ctrl Is TextBox Then
                        If ctrl.Focused = True Then
                            Dim intpos As Integer
                            intpos = ctrl.Location.Y
                            tbPge.AutoScrollPosition = New Point(0, intpos - tbPge.AutoScrollPosition.Y)
                        End If
                    End If
                Next
            Next

            tabNOG.Height = InputPanel1.VisibleDesktop.Height
            tabNOG.Width = InputPanel1.VisibleDesktop.Width
        End If
    End Sub

The problem I am having is if the textbox is below / under the InputPanel it does not autoscroll to that textbox making it visible to the user so they can see the textbox while inputting. Why?