'scrollbar position
' 获取滚动条控件的滚动按钮的当前位置。
'  Dim as Long V,nMin, nMax
'  FF_ScrollBar_GetRange( hWndControl, nMin, nMax )
'  v=FF_ScrollBar_GetPos( hWndControl )
'  Select Case  nScrollCode
'    Case 0 '点击向上按钮
'      If v>nMin Then v -=1
'      FF_ScrollBar_SetPos( hWndControl, v, 1 )
'    Case 1 '点击向下按钮
'      If v<nMax Then v +=1
'      FF_ScrollBar_SetPos( hWndControl, v, 1 )
'    Case 2 '点击滑块上面空白处
'      If v>nMin+10 Then
'          v -=10
'      ElseIf v>nMin Then
'          v -=1
'      End If
'      FF_ScrollBar_SetPos( hWndControl, v, 1 )
'    Case 3 '点击滑块下面空白处
'      If v<nMax-10 Then
'          v +=10
'      ElseIf v<nMax Then
'          v +=1
'      End If
'      FF_ScrollBar_SetPos( hWndControl, v, 1 )
'    Case 4 '托动滑块 鼠标放开后
'    Case 5 '托动滑块 同时 nPosition 是托动后的位置
'      FF_ScrollBar_SetPos( hWndControl, nPosition, 1 )
'    Case 8 ' 不管点了什么地方，只要放开鼠标，就是这个8
'    Case Else
'  End Select
Function FF_ScrollBar_GetPos (ByVal hScrollBar As HWND) As Long

         Function = GetScrollPos(hScrollBar, SB_CTL)

End Function
