hvordan gør jeg en ocx gemmensigtig

prøv med koden:

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


Public Sub setTransparent(hWnd As Long)
  Dim lStyle As Long
  lStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
  lStyle = lStyle Or WS_EX_TRANSPARENT
  lStyle = SetWindowLong(hWnd, GWL_EXSTYLE, lStyle)
End Sub

Det virker lidt forskelligt alt efter hvilket hwnd du sender til proceduren, men det er da et forsøg værd.

Undskyld at jeg ikke har svare før nu. men jeg kan ikke få den til at virker. *øv* er der ikke en anden mulighed.. ?

Lukket.