Сделать разными цветами одну строку ListBox

 Private Sub ColoredListBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs)
    e.Graphics.DrawString("Привет", myFont, Brushes.Red, e.Bounds.X, e.Bounds.Y, StringFormat.GenericDefault)
End Sub

        Dim S As String = "Привет"
        For i = 1 To S.Length - 1
            e.Graphics.DrawString(S.Substring(i, 1), myFont, Brushes.Red, e.Bounds.X + i * 10, e.Bounds.Y, StringFormat.GenericDefault)
        Next i

    Private Sub ColoredListBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs)
 
        ColoredListBox.Items.AddRange(New Object() {"Привет"})
 
        e.DrawBackground()
 
        Dim myFont As New Font("Tahoma", 8)
 
        Dim myBrush() As Brush = {Brushes.Brown, Brushes.Orange, Brushes.Red, Brushes.Pink, Brushes.Blue, Brushes.Green}
 
        Dim StringSize As New SizeF
        Dim LastStringSize As New SizeF
 
        For i As Integer = 0 To ColoredListBox.Items(e.Index).ToString.Length - 1
            StringSize = e.Graphics.MeasureString(ColoredListBox.Items(e.Index).ToString.Substring(i, 1), myFont)
            e.Graphics.DrawString(ColoredListBox.Items(e.Index).ToString.Substring(i, 1), myFont, myBrush(i), e.Bounds.X + LastStringSize.Width - 2.5 * i, e.Bounds.Y)
            LastStringSize.Width = LastStringSize.Width + StringSize.Width
        Next i
 
    End Sub