[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