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

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