Membuat Scrollbar Horizontal di ListBox

Berikut ini cara membuat scrollbar horizontal pada sebuah ListBox yang di dalamnya terdapat data yang melebihi lebar ListBox tersebut.

code::

'Deskripsi: Membuat scrollbar horizontal pada sebuah listbox yang di dalamnya
' terdapat data yang melebihi lebar dari listbox tersebut.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 1 ListBox.
' 2. Copy-kan coding berikut ke dalam editor form yang bertalian.
' 3. Jika Declare Function berikut ingin ditempatkan dalam
' suatu Module tersendiri, hapus kata "Private" sebelum
' "Declare Function..."
'--------------------------------------------------------------------------

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

Private Sub Form_Load()
Static x As Long
'Lebar string akan menjadi lebar dari horizontal scroll bar tsb
'Tambahkan suatu string yang panjangnya melebihi lebar dari scroll bar ybt.
List1.List(0) = "Selamat datang di Situs Masino Sinaga. Semoga Sukses Menyertai Anda Sekalian!"
If x < x =" TextWidth(List1.List(0)" scalemode =" vbTwips" x =" x">
sumber : masimosinaga.com