Операция с Visual Styles привела к ошибке, поскольку сейчас нет активных стилей отображения

Imports System.ComponentModel
Imports System.Windows.Forms.VisualStyles
 
Public Class UserControl1
    Inherits ComboBox
 
    Private Sub InitializeMe()
        Font = New Font("Lato", 10)
        ForeColor = Color.FromArgb(105, 203, 242)
        'DropDownStyle = ComboBoxStyle.DropDownList
        'Me.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
 
        SetStyle(ControlStyles.UserPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint, True)
 
        Me.PerformLayout()
    End Sub
 
    Public Sub New()
        MyBase.New()
        InitializeComponent()
        InitializeMe()
    End Sub
 
    Private _textFormatFlags As TextFormatFlags = TextFormatFlags.VerticalCenter Or TextFormatFlags.Left
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim ctrlRectangle As Rectangle = Me.ClientRectangle
        Dim buttonW As Integer = 15
        Dim border As Integer = 5
        Dim textRectange As Rectangle = ctrlRectangle
        textRectange.Width -= buttonW
        textRectange.Width -= border
        Dim buttonRectangle As Rectangle = Rectangle.FromLTRB(textRectange.Right + border, textRectange.Top, ctrlRectangle.Right, textRectange.Bottom)
        Using br As Brush = New SolidBrush(BackColor)
            e.Graphics.FillRectangle(br, ctrlRectangle)
        End Using
        Dim sf As StringFormat = New StringFormat(StringFormatFlags.NoWrap)
        sf.LineAlignment = StringAlignment.Center
        Using br As Brush = New SolidBrush(ForeColor)
            e.Graphics.DrawString("OKiOkiText", Font, br, textRectange, sf)
        End Using
        Me.DropDownWidth = GetDropDownWidth()
        ComboBoxRenderer.DrawDropDownButton(e.Graphics, buttonRectangle, ComboBoxState.Normal)
    End Sub
 
    Public Function GetDropDownWidth() As Integer
        Dim w As Integer = ClientRectangle.Width
        For Each s As Object In Items
            Dim curW As Integer = TextRenderer.MeasureText(s.ToString(), Font).Width
            If curW > w Then
                w = curW
            End If
        Next
        Return w
    End Function
 
    Protected Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
        If e.Index < 0 OrElse e.State = DrawItemState.ComboBoxEdit Then
            Return
        End If
        Dim g As Graphics = e.Graphics
        Dim ctrlRectangle As Rectangle = e.Bounds
        Dim buttonW As Integer = 0
        Dim border As Integer = 0
        Dim textRectange As Rectangle = ctrlRectangle
        textRectange.Width -= buttonW
        textRectange.Width -= border
        Dim textToPaint As String = ""
        Using br As Brush = New SolidBrush(e.BackColor)
            g.FillRectangle(br, ctrlRectangle)
        End Using
        Dim drawColor As Color = ColorDeactiveItem
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            drawColor = ColorActiveItem
        End If
        Using br As Brush = New SolidBrush(drawColor)
            g.FillRectangle(br, textRectange)
        End Using
        If e.Index <> -1 AndAlso Items.Count > 0 Then
            textToPaint = GetItemText(Items(e.Index))
                Using br As Brush = New SolidBrush(e.ForeColor)
                    e.Graphics.DrawString(textToPaint, e.Font, br, textRectange)
                End Using
        End If
    End Sub
 
End Class

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'UCB добавленный на форму UserComboBox
        UCB.Items.AddRange({"1111", "2222", "3333"})
    End Sub
End Class

Imports System.ComponentModel
Imports System.Windows.Forms.VisualStyles
Public Class UserComboBox
    Inherits ComboBox
    Private Sub InitializeMe()
        Font = New Font("Lato", 10)
        ForeColor = Color.FromArgb(105, 203, 242)
        DropDownStyle = ComboBoxStyle.DropDownList
        Me.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
        SetStyle(ControlStyles.UserPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint, True)
        Me.PerformLayout()
    End Sub
 
    Public Sub New()
        MyBase.New()
        InitializeMe()
    End Sub
 
    Public Property ColorDeactiveItem As Color = Color.LightGray
    Public Property ColorActiveItem As Color = Color.Black
 
    Private _textFormatFlags As TextFormatFlags = TextFormatFlags.VerticalCenter Or TextFormatFlags.Left
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim ctrlRectangle As Rectangle = Me.ClientRectangle
        Dim buttonW As Integer = 15
        Dim border As Integer = 5
        Dim textRectange As Rectangle = ctrlRectangle
        textRectange.Width -= buttonW
        textRectange.Width -= border
        Dim buttonRectangle As Rectangle = Rectangle.FromLTRB(textRectange.Right + border, textRectange.Top, ctrlRectangle.Right, textRectange.Bottom)
        Using br As Brush = New SolidBrush(BackColor)
            e.Graphics.FillRectangle(br, ctrlRectangle)
        End Using
        Dim sf As StringFormat = New StringFormat(StringFormatFlags.NoWrap)
        sf.LineAlignment = StringAlignment.Center
        Using br As Brush = New SolidBrush(ForeColor)
            e.Graphics.DrawString("OKiOkiText", Font, br, textRectange, sf)
        End Using
        Me.DropDownWidth = GetDropDownWidth()
        ComboBoxRenderer.DrawDropDownButton(e.Graphics, buttonRectangle, ComboBoxState.Normal)
    End Sub
 
    Public Function GetDropDownWidth() As Integer
        Dim w As Integer = ClientRectangle.Width
        For Each s As Object In Items
            Dim curW As Integer = TextRenderer.MeasureText(s.ToString(), Font).Width
            If curW > w Then
                w = curW
            End If
        Next
        Return w
    End Function
 
    Protected Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
        If e.Index < 0 OrElse e.State = DrawItemState.ComboBoxEdit Then
            Return
        End If
        Dim g As Graphics = e.Graphics
        Dim ctrlRectangle As Rectangle = e.Bounds
        Dim buttonW As Integer = 0
        Dim border As Integer = 0
        Dim textRectange As Rectangle = ctrlRectangle
        textRectange.Width -= buttonW
        textRectange.Width -= border
        Dim textToPaint As String = ""
        Using br As Brush = New SolidBrush(e.BackColor)
            g.FillRectangle(br, ctrlRectangle)
        End Using
        Dim drawColor As Color = _ColorDeactiveItem
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            drawColor = _ColorActiveItem
        End If
        Using br As Brush = New SolidBrush(drawColor)
            g.FillRectangle(br, textRectange)
        End Using
        If e.Index <> -1 AndAlso Items.Count > 0 Then
            textToPaint = GetItemText(Items(e.Index))
            Using br As Brush = New SolidBrush(e.ForeColor)
                e.Graphics.DrawString(textToPaint, e.Font, br, textRectange)
            End Using
        End If
    End Sub
End Class