スクロールバーを制御したい

//スクロールする元となるメモ帳を立ち上げる
 LF = ""
FOR A = 1 TO 100
 LF = LF + "あ<#CR>"
NEXT
ID = EXEC("notepad")
SENDSTR(ID,LF)

//スライダーの値を取得
vMIN = GETSLIDER(ID,1,SLD_MIN)
vMAX = GETSLIDER(ID,1,SLD_MAX)

//視覚的に分かりやすいように待機時間をはさみながらスクロール制御
FOR A = vMIN TO vMAX STEP 2
SETSLIDER(ID,A,1)
SLEEP(0.1)
NEXT

FOR A = vMAX TO vMIN STEP -2
SETSLIDER(ID,A,1)
SLEEP(0.1)
NEXT