Break on                                  ; allow break
$t = "{\rtf1\ansi\ansicpg1252\deff0\deflang3082"
$t = $t +"{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}}"
$t = $t + "\viewkind4\uc1\pard\f0\fs20 a\tab b\tab c\par d\tab e\tab f}"
$S = CreateObject("Kixforms.System")       ; S = Kixforms
$R = $S.RichTextBox()                      ; R = RichTextBox
$R.Width = 200                             ;
$R.AcceptsTab = true                       ; R can handle the Tabkey
$R.Rtf = $t                                ; Show text with tabs
$F = $S.Form()                             ; F = Form
$ = $F.Controls.Add($R)                    ; Add R to F
$F.Show                                    ; Displays the Form
While $F.Visible $=Execute($F.DoEvents()) Loop ; wait until closed
Exit 0                                      ; Bye

If true
 "true"
else
 "false"
EndIf
?

Break On

$t = "{"+
     "\rtf1\ansi\ansicpg1252\deff0\deflang3082"+
     "{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}}"+
     "\viewkind4\uc1\pard\tx"+InchesToTwips(1)+"\tx"+InchesToTwips(4)+
     "\f0\fs20 A\tab B\tab C\par D\tab E\tab F"+
     "}"

$S = CreateObject("Kixforms.System")

$R = $S.RichTextBox()
$R.Width = 400
$R.AcceptsTab = 1
$R.Rtf = $t

$F = $S.Form()
$F.Width = 420
$nul = $F.Controls.Add($R)

$F.Show()
While $F.Visible
   $nul = Execute($F.DoEvents())
Loop
Exit 0


Function InchesToTwips($inches)
   $InchesToTwips = CDbl($inches)*1440
EndFunction