ok I am useing this code to make my form transparent:

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&

Private Sub Form_Activate()
SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
End Sub

and when i run it yes it is transparent but it coppies everything behind it, so if i use it on the desktop and it is over an icon, and i drag it, the icon, and the background that was benith it stays with it. can I refresh it or something?