wolfrog
Oct 30th, 2000, 04:09 AM
ehm, howto remove the scrollbars of a listbox?!?
I'm in skool right now, so I can't test it.
But try this:
Private Declare Function ShowScrollBar Lib "user32" _
(ByVal hwnd As Long, ByVal wBar As Long, _
ByVal bShow As Long) As Long
Private Const SB_BOTH = 3
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Sub Command1_Click()
ShowScrollBar List1.hwnd, 3, False
End Sub