[RESOLVED] AdjustHorizScrollBar in module

Public Sub AdjustHorizScrollBar(ByRef LB As ListBox, Optional ByVal RightMargin As Long = 4&)
    Dim i As Integer, sngLongestText As Single, TW As Single
 
    With LB
        For i = 0 To .ListCount - 1
            TW = TextWidth(.list(i))
            If sngLongestText < TW Then sngLongestText = TW
        Next
        SendMessageW .hWnd, LB_SETHORIZONTALEXTENT, RightMargin + sngLongestText, 0&
    End With
End Sub

TextWidth(.list(i))

Private Sub Form_Load()
  load Form1.List1, Form1
End Sub
 
'In a module
Public Sub load(lst As ListBox, Form As Form)
    AdjustHorizScrollBar lst
End Sub