Private Enum UxThemeCOMBOBOXStates
        CBXS_NORMAL =  1 
        CBXS_HOT =  2 
        CBXS_PRESSED =  3 
        CBXS_DISABLED =  4 
    End Enum

    Private Enum UxThemeColorProperties
        TMT_BORDERCOLOR =  3801            ' color of borders for BorderFill  
        TMT_FILLCOLOR =  3802              ' color of bg fill  
        TMT_TEXTCOLOR =  3803              ' color text is drawn in 
        TMT_EDGELIGHTCOLOR =  3804         ' edge color 
        TMT_EDGEHIGHLIGHTCOLOR =  3805     ' edge color 
        TMT_EDGESHADOWCOLOR =  3806        ' edge color 
        TMT_EDGEDKSHADOWCOLOR =  3807      ' edge color 
        TMT_EDGEFILLCOLOR =  3808          ' edge color 
        TMT_TRANSPARENTCOLOR =  3809       ' color of pixels that are treated as transparent (not drawn 
        TMT_GRADIENTCOLOR1 =  3810         ' first color in gradient 
        TMT_GRADIENTCOLOR2 =  3811         ' second color in gradient 
        TMT_GRADIENTCOLOR3 =  3812         ' third color in gradient 
        TMT_GRADIENTCOLOR4 =  3813         ' forth color in gradient 
        TMT_GRADIENTCOLOR5 =  3814         ' fifth color in gradient 
        TMT_SHADOWCOLOR =  3815            ' color of text shadow 
        TMT_GLOWCOLOR =  3816              ' color of glow produced by DrawThemeIcon 
        TMT_TEXTBORDERCOLOR =  3817        ' color of text border 
        TMT_TEXTSHADOWCOLOR =  3818        ' color of text shadow 
        TMT_GLYPHTEXTCOLOR =  3819         ' color that font-based glyph is drawn with 
        TMT_GLYPHTRANSPARENTCOLOR =  3820         ' color of transparent pixels in GlyphImageFile 
        TMT_FILLCOLORHINT =  3821          ' hint about fill color used (for custom controls) 
        TMT_BORDERCOLORHINT =  3822        ' hint about border color used (for custom controls) 
        TMT_ACCENTCOLORHINT =  3823        ' hint about accent color used (for custom controls) 
    End Enum

    <DllImport("uxtheme.dll")> Private Function OpenThemeData( _
        ByVal hwnd As System.IntPtr, _
        <MarshalAs(UnmanagedType.LPWStr)> ByVal pszClassList As String _
    ) As Integer
    End Function

    <DllImport("uxtheme.dll")> Private Function GetThemeColor( _
        ByVal hTheme As Integer, _
        ByVal iPartId As Integer, _
        ByVal iStateId As Integer, _
        ByVal iPropId As Integer, _
        ByRef ColorRef As Integer _
    ) As Integer
    End Function

    <DllImport("uxtheme.dll")> Private Function CloseThemeData( _
        ByVal hTheme As Integer _
    ) As Integer
    End Function

    Public Function GetThemeComboBoxBorderColor() As Color

        Dim hTheme As Integer
        Dim iColor As Integer

        Try
            hTheme = OpenThemeData(New IntPtr( 0 ), "COMBOBOX")
            GetThemeColor(hTheme, _
                         0 , _
                        UxThemeCOMBOBOXStates.CBXS_NORMAL, _
                        UxThemeColorProperties.TMT_BORDERCOLOR, _
                        iColor)
            CloseThemeData(hTheme)
        Catch
            Return Color.Empty
        End Try

        If iColor <>  0  Then
            Return ColorTranslator.FromWin32(iColor)
        Else
            Return Color.Empty
        End If

    End Function