Use the standard listbox, and add your own horizontal scroll bar.
VB Code:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETHORIZONTALEXTENT = &H194
Private Sub AddHScroll(LB As ListBox)
Dim i As Long
Dim lLength As Long
Dim lWdith As Long
'see what the longest entry is
For i = 0 To LB.ListCount - 1
If Len(LB.List(i)) = Len(LB.List(lLength)) Then
lLength = i
End If
Next i
'add a little space
lWdith = LB.Parent.TextWidth(LB.List(lLength) + Space(5))
'Convert to Pixels
lWdith = lWdith \ Screen.TwipsPerPixelX
'Use api to add scrollbar
Call SendMessage(LB.hwnd, LB_SETHORIZONTALEXTENT, lWdith, ByVal 0&)
End Sub