Как получить шестнадцатеричное значение цвета - VB

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

Всем Доброго Времени суток! Прошу прощения. Может быть вопрос задан не корректно, но я хотел бы знать возможно ли при помощи функции GetPixel получить значение цвета текущего пикселя в формате #FFFFFF. Если да то прошу привести пример как это можно сделать, а если нет может быть существуют другие способы? Заранее спасибо!

Решение задачи: «Как получить шестнадцатеричное значение цвета»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
 
Private Sub Command1_Click()
Form1.BackColor = &H300102 ' ваш цвет формы
Dim Color As Long
Dim R As Byte, G As Byte, B As Byte
Color = Form1.Point(10, 10) ' Средствами VB6
'Color = GetPixel(Form1.hdc, 50, 50) ' Средствами API (если надо скорость)
 
R = Color And &HFF
G = (Color \ 256) And &HFF
B = (Color \ 65536) And &HFF
Rh = IIf(R < 16, "0" & Hex(R), Hex(R))
Gh = IIf(G < 16, "0" & Hex(G), Hex(G))
Bh = IIf(B < 16, "0" & Hex(B), Hex(B))
'
MsgBox "#" & Bh & Gh & Rh
End Sub