如何使ListBox自动出现横向滚动条？

Question

不要分了
抄别人的顺便提醒一下
要将scalemode设置为3
 ScaleMode       =   3  'Pixel
Private Const LB_SETHORIZONTALEXTENT = &H194Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub SetHorScorll(ByVal DestList As ListBox)Dim lWidth As Long, lWidthMax As Long, i As Long
For i = 0 To DestList.ListCount - 1
    lWidth = (Me.TextWidth(DestList.List(i)) + 5)
    If lWidth > lWidthMax Then lWidthMax = lWidth
Next
SendMessage DestList.hWnd, LB_SETHORIZONTALEXTENT, lWidthMax, lWidthMax
End SubPrivate Sub cmdAdd_Click()
  Dim i As Integer, str As String, j As Integer
  
  For j = 0 To fs.ListCount - 1
    If Not fs.Selected(j) Then GoTo nx
    str = IIf(Right(fd.Path, 1) = "\", fd + fs.List(i), fd + "\" + fs.List(j))
    'Debug.Print str
    For i = 0 To lst.ListCount - 1
      If lst.List(i) = str Then GoTo nx
    Next
    lst.AddItem str
nx: Next
  SetHorScorll lst
End Sub