' Färglägger alla pixlar slumpmässigt. Exemplet tar en rektangel i form1 och loopar igenom alla punkterna.

Dim winrect As RECT ' Rektangle på Form1
Dim rgbval As Long ' RGB värdet på vald färg
Dim x As Long, y As Long ' räknare för x och y axel
Dim retval As Long ' returvärde

' Hämtar en rektangel på form1.
retval = GetWindowRect(Form1.hWnd, winrect)

' Loopar igenom varje pixel.
For y = 0 To winrect.bottom - winrect.top
For x = 0 To winrect.right - winrect.left
' Väljer en färg slumpmässigt mellan 0 and 255
rgbval = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
' Sätt ny färg.
retval = SetPixel(Form1.hDC, x, y, rgbval)
Next x
Next y