Visual Basic - Crear Ventanas Flotantes ..

He cogido un ejemplo de la pagina del guille en el cual crear una ventana flotante que es hija de la ventana principal, con lo cual cuando se minimiza el padre se minimiza la hija ... Todo esto funciona en Windows 9x/2000 pero en Windows xp no funciona. A que se debe esto?

A continuación el ejemplo.

2.- SetWindowWord: crear ventanas flotantes

Declare Function SetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer
Declare Function SetWindowWord Lib "User32" Alias "SetWindowWord" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long

'Crear una ventana flotante al estilo de los tool-bar
'Cuando se minimiza la ventana padre, también lo hace ésta.
Const SWW_hParent = -8

'En Form_Load (suponiendo que la ventana padre es Form1)
If SetWindowWord(hWnd, SWW_hParent, form1.hWnd) Then
End If