GetPixel GetPixel DODATKOWE FORMANTY: Shape - Shape1 CO JEST CO: hdc - uchwyt obiektu (np. form1.hdc), którego punkty będą sprawdzane X, Y - współrzędne badanego punktu w PIXELACH. Zwracaną wartością jest liczba w kodzie RGB określająca kolor danego pixela. Jeżeli współrzędne wychodzą poza zakres badanego obiektu (np. ustawiliśmy jednostkę na Twipsy) to zostanie zwrócona wartość -1. ZOBACZ TEŻ: SetPixel KOD MODUŁU: Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _     ByVal X As Long, ByVal Y As Long) As Long Public Function CurrentColor(hdc As Long, X As Single, Y As Single) As String     Dim ret As Long     ret = GetPixel(hdc, X, Y)     If ret = -1 Then         CurrentColor = "Współrzędne poza zakresem"         Exit Function     End If     CurrentColor = ret End Function KOD FORMY: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     Text1 = CurrentColor(Me.hdc, X, Y) End Sub COŚ DLA LENIWYCH: GetPixel.zip