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

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