VB中的角标问题

Question

VB中的一个ListBox中，需要列出几个化学式，如何显示化学式的角标？比如YVO4中的4如何显示成下角标？？

Answer 1

listbox好像不行，但是richtext是可以的

Answer 2

给你一个richtext的例子Private Sub Command3_Click()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 20
RichTextBox1.Text = "YVO4"
OffsetRichText RichTextBox1, 3, 1, -6
End Sub
Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer, offset As Integer)
box.SelStart = start
box.SelLength = length
box.SelFontSize = box.Font.Size - Abs(offset)
box.SelCharOffset = ScaleY(offset, vbPoints, vbTwips)
box.SelStart = 0
box.SelLength = 0
End Sub