[VB6] Leggere colore pixel da Image

[erosmax]

Salve. Non riesco a trovare il modo per leggere da una immagine (Image e non PictureBox), il colore di ogni singolo pixel (nel mio caso il nero).
La Point(x,y) è valida solo per la PictureBox.
Utilizzo Imgage per via dello Strech.
Mi andrebbe bene anche un modo per "Strechare" a valore fisso una PictureBox.
Grazie a Tutti.

[oregon]

Parli di VB6?

[xegallo]

un form due commandbutton e una listbox

Option Explicit

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 Declare Function GetWindowDC Lib "user32" _
    (ByVal hwnd As Long) As Long
    
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private bAnnulla As Boolean

Private Sub Command1_Click()
Dim pos As POINTAPI
Dim lDC As Long
mainLoop:
    If bAnnulla = False Then
        lDC = GetWindowDC(0)
        Call GetCursorPos(pos)
        If List1.ListCount > 20 Then List1.RemoveItem 1
        List1.AddItem "&H" & Trim$(GetPixel(lDC, pos.x, pos.y))
        List1.ListIndex = List1.ListCount - 1
    Else
        bAnnulla = False
        Exit Sub
    End If
    DoEvents
GoTo mainLoop
End Sub

Private Sub Command2_Click()
    bAnnulla = True
End Sub

[oregon]

Oppure usi semplicemente una Picture

Picture1.PaintPicture LoadPicture("C:\TuaImmagine.bmp"), 0, 0, Picture1.Width, Picture1.Height

[erosmax]

Grazie a tutti!
Ho preferito usare una PictureBox.

test.PaintPicture test.Picture, 0, 0, test.ScaleWidth, test.ScaleHeight

alla fine è quello detto da oregon.

Grazie

Coap.