I see.
U mean set the usercontrols backcolor to be transparent at runtime...
The code you posted, that was messed up in the txt file was:
VB Code:
  1. Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

  2. Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

  3. Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

  4. Private Const GWL_EXSTYLE = (-20)

  5. Private Const WS_EX_LAYERED = &H80000

  6. Private Const LWA_ALPHA = &H2&

  7.  
  8. Private Sub Command1_Click()

  9. Dim LEVEL As Byte

  10.     LEVEL = 120

  11.     Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

  12.     Call SetLayeredWindowAttributes(Me.hwnd, 0, LEVEL, LWA_ALPHA)

  13. End Sub
Simple alpha bending code.

Will try it oooot.

MS Sucks.