vbAccelerator - Contents of code file: mListTabs.bas

Attribute VB_Name = "mListTabs"
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal
 hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETTABSTOPS = &H192&

Public Sub setTabStops( _
      lstThis As ListBox, _
      lTabs() As Long, _
      lTabCount As Long _
   )
   SendMessage lstThis.hwnd, LB_SETTABSTOPS, lTabCount, lTabs(0)
End Sub