Private Declare Function DeleteObject Lib "gdi32" _
        (ByVal hObject As Long) As Long
    Private Declare Function CreateSolidBrush Lib "gdi32" _
        (ByVal crColor As Long) As Long
    Private Declare Function FillRect Lib "user32" _
        (ByVal hDC As Long, ByVal lpRect As RECT, _
            ByVal hBrush As Long) As Long
    Private Declare Function GetDC Lib "user32" _
        (ByVal hwnd As Int32) As Int32
    Private Declare Function GetDeviceCaps Lib "gdi32" _
        (ByVal hdc As Int32, ByVal nIndex As Int32) As Int32
 
    Private Const PLANES = 14
    Private Const BITSPIXEL = 12
 
    Private Structure RECT
        Dim Left As Long
        Dim Top As Long
        Dim Right As Long
        Dim Bottom As Long
    End Structure
 
    Private Function ColorBlue(ByVal Color As Long) As Integer
        ColorBlue = Color \ &H10000 And &HFF&
    End Function
 
    Private Function ColorRed(ByVal Color As Long) As Integer
        ColorRed = Color And &HFF&
    End Function
 
    Private Function ColorGreen(ByVal Color As Long) As Integer
        ColorGreen = Color \ &H100& And &HFF&
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MakeGradient(Me.PictureBox1, CLng(RGB(0, 0, 0)), CLng(RGB(255, 255, _
        255)), 1)
    End Sub