Code:
Public Function SetTBTabStops(TB As Object, _ ParamArray TabStops()) As Boolean 'PURPOSE: Set TabStops for a text box, 'a rich text box or any UserControl 'based on a text box 'that exposes the underlying text box's 'hwnd property. 'This creates columns whereby items 'in each column are separated by 'a tab character 'USAGE: 'Pass TextBox Object and a comma delimited 'list of tab stops. Tab stops are expressed 'in dialog units which approximately equal '1/4 the width of a character 'EXAMPLE: 'SetTBTabStops text1, 40, 80, 120 'text1.text = "Column1" & vbTab & "Column2" _ '& vbTab & "Column3" & vbTab & "Column4" 'This will create 3 columns separated by 'about 10 characters Dim alTabStops() As Long Dim lCtr As Long Dim lColumns As Long Dim lRet As Long On Error GoTo errorhandler: ReDim alTabStops(UBound(TabStops)) As Long For lCtr = 0 To UBound(TabStops) alTabStops(lCtr) = TabStops(lCtr) Next lColumns = UBound(alTabStops) + 1 lRet = SendMessage(TB.hwnd, EM_SETTABSTOPS, _ lColumns, alTabStops(0)) SetTBTabStops = (lRet = 0) Exit Function errorhandler: SetTBTabStops = False End Function