[RESOLVED] How do we replace boring Bullets with Numbers, like MSWord can?

[Azeccia]

I currently use boring bullets in my RTB application but I would really love it if I could implement numbered Bullets. IE: 1)

My boring code is as follows:

Private Sub cmdBullet_Click()
    If rtbEditBox.SelBullet = False Then
        'Sets the bullet's Indention
        rtbEditBox.BulletIndent = 200
        'Makes the Bullet Appear
        rtbEditBox.SelBullet = True
        rtbEditBox.SetFocus
    'Remove the Bullet mark
    ElseIf rtbEditBox.SelBullet = True Then
        'Removes the Bullet
        rtbEditBox.SelBullet = False
        rtbEditBox.SetFocus
    End If
End Sub

Got any clever ideas my fellow geeks?

Much appreciated,
Azeccia

[isnoend07]

You could learn a lot from this RTB program
http://www.planet-source-code.com/vb...xtCodeId=69067

[Azeccia]

Thanks for the help.

Any guess on this?

You could learn a lot from this RTB program
http://www.planet-source-code.com/vb...xtCodeId=69067

Isnoed07,

I checked out IQ Wordpad as you suggested but unfortunately it left me puzzled on a different concern I have developed...

In the IQWordpad it uses cmDlg.Color = Text1.SelColor

But what I need to know is what is the colorsyntax that the cmDlg is sending when a user selects a color?

Or rather, what is the syntax to change a rtb.SelColor?

I already tried rtb.SelColor = Red but to no avail =(

I appreciate all of your time and efforts,
Azeccia

[isnoend07]

try
rtb.SelColor = vbRed or vbblue
or
rtb.SelColor = RGB(209, 0, 0)

[Azeccia]

Thank you once again isnoend07 =)