Transparent Paint...HELP!!!

Hi!
I want to fill a polygon on my activex.
I need to do the activeX transparent , becouse of this I can't use FillColor and I try to use CreateSolidBrush(color). I see that CreateSolidBrush return long , but SelectObject use integer. How can I do it ?
Thanks!


Dim hBr as Long
Dim oldObj as Integer
hBr = CreateSolidBrush(vbRed)
oldObj = SelectObject(me.hDC, CInt(hBr))
'In this place I got error !
Polygon me.hDC, XY(0), 3
SelectObject me.hDC, oldObj

Tray this.

oldObj = CInt(SelectObject(Me.hDC, CInt(hBr)))