Type BCXScrollBarParms
     BCX_SmallChangeX As Integer
     BCX_SmallChangeY As Integer
     BCX_LargeChangeX As Integer
     BCX_LargeChangeY As Integer
     BCX_DynaScroll As Integer
     BCX_ScrollViewWidth As Integer
     BCX_ScrollViewHeight As Integer
     BCX_ScrollInit As Integer
End Type

$COMMENT
'Call to InitScrollBars
  Global Frame1Scroll As BCXScrollBarParms

  If( NOT Frame1Scroll.BCX_ScrollInit) Then
         InitScrollBars(hWnd, Frame1Scroll, 600,400, 1, 20, 1, 20)
  End If
  if(Msg=WM_HSCROLL BOR WM_VSCROLL BOR WM_SIZE) Then
     ScrollBCX(hWnd,Msg,wParam,lParam,Frame1Scroll)
    EXIT FUNCTION
  End If
$COMMENT

Function InitScrollBars(hWnd As HWND, BYREF fScroll As BCXScrollBarParms, _
         ViewWidth As Integer,ViewHeight As Integer _
         SmallChangeX As Integer ,LargeChangeX As Integer, _
         SmallChangeY As Integer, LargeChangeY As Integer _
         ) As Integer


     (fScroll).BCX_ScrollViewWidth = ViewWidth
     (fScroll).BCX_ScrollViewHeight = ViewHeight
     (fScroll).BCX_SmallChangeX= SmallChangeX
     (fScroll).BCX_LargeChangeX= LargeChangeX
     (fScroll).BCX_SmallChangeY= SmallChangeY
     (fScroll).BCX_LargeChangeY= LargeChangeX
     (fScroll).BCX_DynaScroll= TRUE
     (fScroll).BCX_ScrollInit = TRUE
     Function = 0
End Function

Sub ScrollBCX(hWnd As HWND, Msg As UINT, wParam As WPARAM, lParam AS LPARAM, fScroll As BCXScrollBarParms)

     BCX_Scroll(hWnd,Msg,wParam,lParam, _
     fScroll.BCX_LargeChangeX, _
     fScroll.BCX_LargeChangeY, _
     fScroll.BCX_SmallChangeX, _
     fScroll.BCX_SmallChangeY, _
     fScroll.BCX_ScrollViewWidth, _
     fScroll.BCX_ScrollViewHeight, _
     fScroll.BCX_DynaScroll)
End Sub