如何使listbox的两列显示对齐？

Question

Public Function F_FixChr(ByVal strChr As String, ByVal intLen As Integer) As String
    Dim intChrLen   As Integer
    Dim strSpc      As String
    If IsNumeric(strChr) Then
        intChrLen = Len(strChr)
        strSpc = Space(intLen - intChrLen)
    Else
        intChrLen = LenB(StrConv(strChr, vbFromUnicode))
        strSpc = Space(intLen * 2 - intChrLen)
    End If
    F_FixChr = strChr & strSpc & " "
End Function
用这个函数可以实现。