И еще вопрос.

[Madman]

На VBNet.ru нашел такой код:

Private Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim z As POINTAPI

Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos z
screendc = CreateDC("DISPLAY", "", "", 0&)
Text1 = Hex(GetPixel(screendc, z.x, z.y))
Picture1.BackColor = GetPixel(screendc, z.x, z.y)
DeleteDC (screendc)
End Sub

А как сделать чтобы выводился html цвет(типа #FFFFFF)?

[zzoom]

Вместо
Picture1.BackColor = GetPixel(screendc, z.x, z.y)
Что-то вроде:
Label1.Caption = "#" & Hex(GetPixel(screendc, z.x, z.y))

[Madman]

нет.. это не то.Ты просто добавил к Hex цвету символ #,а мне надо измененное значение цвета(сам не понял что сказал )
Ну вот по этому коду допустим получаем цвет 6AC5C5 ,а надо #C5C56A

[zzoom]

Так, чёта и я не понял тебе возвращает нормальный(!) RGB
А надо - BGR я правильно понял?
Здесь лежат ф-ции для работы с RGB http://www.vbstreets.ru/default.asp?page=library&id=rgbcolor
- выдели значения Red, Blue и Green потом переставляй их как хочешь