'scrollbar position
' 设置滚动框位置（滑块），可以要求，重绘滚动条，以反映滚动条的新位置。
'  hScrollBar : Handle of the scroll bar (e.g. HWND_FORM1_HSCROLL1)  
'  nPos       : 滚动条的新位置。
'  fRedraw    : TRUE 重绘的控件，否则 FALSE。
'        FF_ScrollBar_GetRange( HWND_FORM1_VSCROLL1, nMin, nMax )
'        v=FF_ScrollBar_GetPos( HWND_FORM1_VSCROLL1 )
'         Select Case  nScrollCode
'            Case 0 '点击向上按钮
'                If v>nMin Then v -=1
'                FF_ScrollBar_SetPos( HWND_FORM1_VSCROLL1, v, 1 )        
'            Case 1 '点击向下按钮
'                If v<nMax Then v +=1
'                FF_ScrollBar_SetPos( HWND_FORM1_VSCROLL1, v, 1 )      
'            Case 2 '点击滑块上面空白处
'                If v>nMin+10 Then
'                     v -=10
'                ElseIf v>nMin Then 
'                    v -=1
'                End If
'                FF_ScrollBar_SetPos( HWND_FORM1_VSCROLL1, v, 1 )
'            Case 3 '点击滑块下面空白处
'                If v<nMax-10 Then 
'                    v +=10
'                ElseIf v<nMax Then 
'                    v +=1
'                End If
'                FF_ScrollBar_SetPos( HWND_FORM1_VSCROLL1, v, 1 )
'            Case 4 '托动滑块 鼠标放开后
'            Case 5 '托动滑块 同时 nPosition 是托动后的位置
'                FF_ScrollBar_SetPos( HWND_FORM1_VSCROLL1, nPosition, 1 )
'            Case 8 ' 不管点了什么地方，只要放开鼠标，就是这个8
'            Case Else
'        End Select
Function FF_ScrollBar_SetPos (ByVal hScrollBar As HWND, ByVal nPos As Long, ByVal fRedraw As Long) As Long

         Function = SetScrollPos(hScrollBar, SB_CTL, nPos, fRedraw)

End Function
