Jag ska visa filnamn i en listbox. Filnamnen är stora så jag villa att man ska kunna scrolla i sidled.

Hur gör man det.

Jag har försökt med collumns egenskapen, som hjälp filerna säger, men det fungerar inte.

/Jacob

Litet exempel som kanske hjälper dig:
<code>
Option Explicit

Private Const LB_SETHORIZONTALEXTENT As Long = &H194
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
Dim sTemp As String
Dim Index As Long
Dim MaxWidth As Long
ScaleMode = vbPixels
For Index = 1 To 100
sTemp = String$(Index, "-")
List1.AddItem sTemp
If TextWidth(sTemp) > MaxWidth Then MaxWidth = TextWidth(sTemp)
Next
SendMessageLong List1.hwnd, LB_SETHORIZONTALEXTENT, MaxWidth + 2, 0&
End Sub

Private Sub Form_Resize()
List1.Move ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight
End Sub
</code>