Получить выбранный цвет элементов Windows - Visual Basic .NET

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

Доброго времени суток! Как можно получить выбранный цвет элементов Windows.

Решение задачи: «Получить выбранный цвет элементов Windows»

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

                            Public Class Form1
    Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
    Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
    Public Function GetFrameColor(Form As Form) As Color
        Return ColorTranslator.FromWin32(GetPixel(GetWindowDC(Form.Handle), 10, 10))
    End Function
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Threading.Thread.Sleep(300)
        Me.BackColor = GetFrameColor(Me)
    End Sub
End Class
                        