Попытайтесь это
Общественный тип Form1
Приватно объявите _ SendMessage функции
_ «SendMessageA»» псевдонима свободы «user32
(Ручка ByVal как wMsg IntPtr, ByVal как wParam интежера, ByVal как lParam интежера, ByRef как интежер) как интежер
Const EM_SETTABSTOPS = &HCB
Приватная подводная лодка Form1_Load (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует MyBase.Load
Тускло tabsSize () как интежер = {16, 32, 48} '4*pos
SendMessage (TextBox1.Handle, EM_SETTABSTOPS, tabsSize.Length, tabsSize (0))
Подводная лодка конца
Тип конца