HScrollInfo example for Visual Basic

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