[RESOLVED] GetPixel/SetPixel Issue

[Fedhax]

I'm currently working on a user control, and I want to make the control appear transparent on any form is is placed. This line of thought lead me to try to obtain the background color of the form, pass it to the background color of my user control, and be done with it. Since I'm also using gradient coloring/bitmaps on the the form, I can't assume that the color of one location is going to work at a different location on the form. As a result, I figured that I would write a quick test app to try to use GetPixel from the parent.hDC and SetPixel on the usercontrol.

Unfortunately, I always get a CLR_INVALID from Get_Pixel and Set_Pixel regardless of which pixel I try to snag. Any ideas or suggestions for a better solution?

Private Sub UserControl_TestSub()
 
    Dim lhWnd           As Long
    Dim lDC             As Long
    Dim lGetPixel       As Long
    Dim lSetPixel       As Long
    
    lhWnd = GetParent(Me.hwnd)
    lDC = GetDC(lhWnd)
    
    lGetPixel = GetPixel(lDC, 0, 0)
    lSetPixel = SetPixel(Me.hdc, 0, 0, lGetPixel)
    
    Call SetPixel(Me.hdc, 0, 0, GetPixel(lDC, 0, 0))
    
    MsgBox lhWnd & " : " & Me.hwnd & " :: " & lDC & ": " & Me.hdc & " ::: " & lGetPixel & ", " & lSetPixel
End Sub