' Fyller ett fönster Form1 med färgen som finns på koordinaten (75,100). Fyller sedan fönstret med den pensel som finns i färgen på aktuell pixel.

Dim rgbVal As Long ' RGB värdet på pixeln
Dim hBrush As Long ' handle till färgen vi skall skapa
Dim winrect As RECT ' rectangle för Form1
Dim retval As Long ' returvärde

' Hämtar färgen på pixeln vid position (75,100).
rgbVal = GetPixel(Form1.hDC, 75, 100)

' Hämtar Form1's dimention på rektangeln
retval = GetWindowRect(Form1.hWnd, winrect)

' Skapar en pensel med den färgen.
hBrush = CreateSolidBrush(rgbVal)

' Använd penseln för att fylla hela rektangeln
retval = FillRect(Form1.hDC, winrect, hBrush)

' Raderar penseln för att spara minne.
retval = DeleteObject(hBrush)