hmm, try a debugstop before the SetSliderRange and step in twice, do you get here?
Method SetRange(visible,total) Select slidertype Case SLIDER_SCROLLBAR Local info:SCROLLINFO=New SCROLLINFO info.cbSize=SizeOf(SCROLLINFO) info.fMask=SIF_PAGE|SIF_RANGE info.nMax=total-1 info.nPage=visible SetScrollInfo(_hwnd,SB_CTL,info,True) Case SLIDER_TRACKBAR SendMessageW _hwnd,TBM_SETRANGE,True,(total Shl 16)|visible Case SLIDER_STEPPER SendMessageW _hwnd,UDM_SETRANGE,True,(visible Shl 16)|total End Select End Method