ListBox Dengan ScrollBar Horisontal

Kontrol Listbox di VB 6.0 tidak menyediakan property untuk memunculkan scrollbar horisontal. Scrollbar horisontal berguna agar Listbox dapat menampilkan secara utuh item / teks yang mempunyai panjang melebihi dari panjang ListBox itu sendiri.

Buat Project dengan sebuah Form dan sebuah Module didalamnya.
Di Module ketikkan :

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Sub AddItemLB(ByVal Lst As ListBox, ByVal Item As String)
Dim l As Long
l = IIf(IsNumeric(Lst.Tag), Lst.Tag, 0)
Lst.AddItem Item
  
If l < Lst.Parent.TextWidth(Item & " ") Then
l = Lst.Parent.TextWidth(Item & " ")
SendMessage Lst.hwnd, &H194, IIf(Lst.Parent.ScaleMode = vbTwips, l / Screen.TwipsPerPixelX, l), 0
Lst.Tag = l
End If
End Sub

Di Form buat sebuah kontrol ListBox sebagai contoh. Lalu ketikkan kode berikut di bagian 'Form _Load' :

AddItemLB List1, "Ini adalah text puanjannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnng"
AddItemLB List1, "Ini adalah text pendek"
AddItemLB List1, "Ini adalah text lebiiiiiiiiiiiiiiiiiiiihhhhhhhhhhhh puanjannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnng"
AddItemLB List1, "Ini adalah text pendek"

CATATAN : Pastikan properti Font dari ListBox sama dengan property Font dari Form.