Как скрыть мигающий курсор в окне ввода ComboBox? - Visual Basic .NET

Формулировка задачи:

Для TextBox всё работает:

<DllImport("user32")>
    Private Shared Function HideCaret(ByVal hWnd As IntPtr) As Integer
    End Function
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        HideCaret(TextBox1.Handle)
    End Sub

для ComboBox (стиль DropDown) куда бы мы не вставляли HideCaret(ComboBox1.Handle) каретка не исчезает.

Решение задачи: «Как скрыть мигающий курсор в окне ввода ComboBox?»

textual
                            Листинг программы 
                        

                               Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged, ComboBox1.GotFocus, ComboBox1.Click
        Dim a As NativeWindow = TryCast(GetType(ComboBox).InvokeMember("childEdit", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.GetField, Nothing, Me.ComboBox1, Nothing), NativeWindow)
        HideCaret(a.Handle)
    End Sub
                        