VB6 / GDI+ routine to draw semi-transparent rectangle on object with an hDC

I need a small and simple VB6 routine that draws a semi-transparent rectangle on an object that has a hDC. Parameters that should be passed: oTarget As Object (object with a hDC, like a picturebox) X1, X2, X3, X4 as Long (x-coordinates of each of the corners of the rectangle) Y1, Y2, Y3, Y4 as Long (y-coordinates of each of the corners of the rectangle) lFillColor As Long (Windows color code) iPercentageTransparent As Integer (0 = solid color, 100 = fully transparent) Note: the calling routine will make sure that X1/Y1 is the bottom left corner, X2/Y2 top left, X3/Y3 top right, X4/Y4 bottom right. The delivery should include all declarations of private types, api-calls, etc. Best would be that it's working is demonstrated within a simple app where the rectange is drawn over a picture that is displayed in a picturebox.