Private Declare Function EnableScrollBar Lib "user32.dll" (ByVal hwnd As Long, _
                                                         ByVal wSBFlags As _
                                                         Long, _
                                                         ByVal wArrows As Long) _
                                                         As Long
 
        Private Const SB_HORZ                   As Long = 0&    ' horizontale 
        ' Scrollleiste
        Private Const SB_VERT                   As Long = 1&    ' vertikale 
        ' Scrollleiste
        Private Const SB_CTL                    As Long = 2&    ' 
        ' Scrollbar-Control !
        Private Const SB_BOTH                   As Long = 3&    ' beide 
        ' Scrollleisten
 
        Private Const ESB_ENABLE_BOTH           As Long = &H0&   ' Enables both 
        ' arrows on a scroll bar.
        Private Const ESB_DISABLE_LTUP          As Long = &H1&   ' Disables the 
        ' left arrow on a horizontal scroll bar or the up arrow of a vertical 
        ' scroll bar.
        Private Const ESB_DISABLE_RTDN          As Long = &H2&   ' Disables the 
        ' right arrow on a horizontal scroll bar or the down arrow of a 
        ' vertical scroll bar.
        Private Const ESB_DISABLE_BOTH          As Long = &H3&   ' Disables 
        ' both arrows on a scroll bar.
 
 
 
' Scrollbars de-/aktivieren
 ' -1 = keine Scrollbar / 0 = waagrecht / 1 = senkrecht / 2 = beide Bars
   ' gewünschte Scrollbar(s) aktiv setzen
    Select Case hBar
           Case 0       ' horiz. ScrollBar
                call EnableScrollBar(CtrlhWnd, SB_HORZ, ESB_ENABLE_BOTH)
                call EnableScrollBar(CtrlhWnd, SB_VERT, ESB_DISABLE_BOTH)
           Case 1       ' vertik. ScrollBar
                call EnableScrollBar(CtrlhWnd, SB_HORZ, ESB_DISABLE_BOTH)
                call EnableScrollBar(CtrlhWnd, SB_VERT, ESB_ENABLE_BOTH)
           Case 2       ' beide ScrollBars
                call EnableScrollBar(CtrlhWnd, SB_BOTH, ESB_ENABLE_BOTH)
           Case Else    ' keine ScrollBar
                call EnableScrollBar(CtrlhWnd, SB_BOTH, ESB_DISABLE_BOTH)
    End Select

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...