argh! scrollbars...

[wolfrog]

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