Userform Textbox to activate checkbox when at bottom.

I have been trying to activate a checkbox allowing access to the additional disabled pages on a UserForm AFTER the user reads the scrolled contents in a TextBox. I can lay a scrollbar beside it and controll the scrollbar .min .max. Is there a way to link this with the TextBox LineCount or scroll of the Textbox?

Anyones help on this would be appreciated. I have searched many posts but none that will activate another after scrolling to bottom of a TexBbox.

John

Something like this.

Private m_blnUpdating As Boolean
Private Sub ScrollBar1_Change()

    If Not m_blnUpdating Then
        TextBox1.SetFocus
        TextBox1.CurLine = ScrollBar1.Value - 1
        ScrollBar1.SetFocus
        Label1.Caption = ScrollBar1.Value
        
        If ScrollBar1.Value = ScrollBar1.Max Then CheckBox1.Enabled = True
    End If
    
End Sub

Private Sub UserForm_Initialize()

    m_blnUpdating = True
    TextBox1.SetFocus
    ScrollBar1.Min = 1
    ScrollBar1.Max = TextBox1.LineCount
    m_blnUpdating = False
    
End Sub

Andy, that was great!


Thankyou for your assistance in this endeavor, I new it was simple I just could not 'Focus'!


John