HScrollInfo example for Visual Basic

Private Sub LEAD1_Resize()
    If (LEAD1.HScrollInfo.Visible) Then
        LEAD1.HScrollInfo.Page = LEAD1.HScrollInfo.Max / 10
        LEAD1.HScrollInfo.Line = 10
    End If
    If (LEAD1.VScrollInfo.Visible) Then
        LEAD1.VScrollInfo.Page = LEAD1.VScrollInfo.Max / 10
        LEAD1.VScrollInfo.Line = 10
    End If
    Debug.Print "*************"
    Debug.Print "HScrollMin: " & CStr(LEAD1.HScrollInfo.Min)
    Debug.Print "HScrollMax: " & CStr(LEAD1.HScrollInfo.Max)
    Debug.Print "VScrollMin: " & CStr(LEAD1.VScrollInfo.Min)
    Debug.Print "VScrollMax: " & CStr(LEAD1.VScrollInfo.Max)
    Debug.Print "-------------"
    Debug.Print "HScrollPage: " & CStr(LEAD1.HScrollInfo.Page)
    Debug.Print "HScrollLine: " & CStr(LEAD1.HScrollInfo.Line)
    Debug.Print "VScrollPage: " & CStr(LEAD1.VScrollInfo.Page)
    Debug.Print "VScrollLine: " & CStr(LEAD1.VScrollInfo.Line)
    Debug.Print "-------------"
    Debug.Print "HScrollPos: " & CStr(LEAD1.HScrollInfo.Pos)
    Debug.Print "VScrollPos: " & CStr(LEAD1.VScrollInfo.Pos)
    Debug.Print "-------------"
    Debug.Print "HScrollWidth: " & CStr(LEAD1.HScrollInfo.Width)
    Debug.Print "VScrollWidth: " & CStr(LEAD1.VScrollInfo.Width)
End Sub