Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Sub VBMAKECHILD Lib "vbex32.dll" _
   (ByVal nHwd As Long, ByVal zhwd As Long, _
    ByVal x As Long, ByVal y As Long)
 
Private Sub Form_Load()
   VBMAKECHILD Me.hwnd, GetDesktopWindow(), 0, 0
End Sub