เพิ่มแถบเลื่อนแนวนอนใน ListBox [ VB6 ]

โค๊ด: [Select]

Option Explicit

      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()

        List1.Width = 1600
        List1.AddItem "ICheer_No0M"
        List1.AddItem "ITD-TEAM"
        List1.AddItem "IT-DARK.ORG"
       
        SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, 120, 0 ' เปลี่ยนตัวเลข 120 ตามความเหมาะสม

End Sub