Text1オブジェクトに任意の個数のタブストップ位置を設定する関数Tabsです。送信メッセージをLB_SETTABSTOPS(値:&H192)にするとリストボックスにタブストップを設定することができます。 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const EM_SETTABSTOPS = &HCB Public Sub Tabs(ParamArray TabPos()) 'TextBoxに任意の個数のタブストップを設定する Dim n As Integer, i As Integer n = UBound(