Можно ли поменять цвет активного элемента ListBox - Visual Basic .NET

    Private Sub ListBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        If e.Index < 0 Then Exit Sub
 
        e.DrawBackground()
 
        Dim bcolor As Color = If(((e.State And DrawItemState.Selected) = DrawItemState.Selected Or (e.State And DrawItemState.Focus) = DrawItemState.Focus), _
                                  Color.Red, _
                                  ListBox1.BackColor)
        e.Graphics.FillRectangle(New SolidBrush(bcolor), e.Bounds)
 
        e.Graphics.DrawString(ListBox1.Items.Item(e.Index).ToString, _
                              ListBox1.Font, _
                              New SolidBrush(ListBox1.ForeColor), _
                              e.Bounds, _
                              New StringFormat With {.Alignment = StringAlignment.Near, _
                                                     .LineAlignment = StringAlignment.Center, _
                                                     .Trimming = StringTrimming.None, _
                                                     .FormatFlags = StringFormatFlags.NoWrap})
    End Sub